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

Question

我有一个与 here 中发布的问题类似的问题但建议的解决方案对我不起作用。

我想简单地从 github 下载一个压缩文件，解压缩它并将数据存储在数据框上(它是一个 Coursera 项目，但主要目的是创建一个 Markdown 文档而不是下载/解压缩文件......所以我我不是在问如何做作业)。

我的代码如下:

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

有没有人有关于错误在哪里的提示？

Answer 1

问题不在于您的代码，而在于 GitHub:它不支持直接下载部分存储库，即使是二进制文件的“原始”访问 URL。您的代码会下载一个文件，但不会解压缩。见 Download single files from GitHub以获得更详细的解释。

因此，例如这有效:

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)