R下载并解压缩文件以存储在数据帧中

我有一个类似的问题，但建议的解决方案不适合我

我只想从github下载一个压缩文件，解压缩并将数据存储在一个数据框中（这是一个Coursera项目，但主要目的是创建一个降价文档，而不是下载/解压缩该文件……所以我不想问如何做家庭作业）

我的代码如下：

activity_url <- "https://github.com/rdpeng/RepData_PeerAssessment1/blob/master/activity.zip"
temp <- tempfile()
download.file(activity_url, temp, method = "libcurl", mode = "wb")
unzip(temp, "activity.csv")
mydata <- read.table("activity.csv", header = "TRUE", sep = ",")
unlink(temp)

Error in file(file, "rt") : impossible d'ouvrir la connexion
Calls: <Anonymous> ... withCallingHandlers -> withVisible -> eval -> eval -> read.table -> file
Exécution arrêtée

---

activity\u url问题不在于您的代码，而在于GitHub：它不支持直接下载部分存储库，即使使用二进制文件的“原始”访问url也是如此。您的代码下载一个文件，但它不会解压缩。有关更详细的说明，请参阅

例如，这是可行的：

activity_url <- "http://kenbenoit.net/files/activity.zip"
temp <- tempfile()
download.file(activity_url, temp)
unzip(temp, "activity.csv")
# note that here I modified your original read.table() which did not work
mydata <- read.csv("activity.csv")
unlink(temp)

activity\u url好的，谢谢。我花了几个小时试图找到错误，现在我知道它只是GitHub