Tenho uma pergunta semelhante à postada emaqui mas a solução sugerida não funciona para mim.

Quero simplesmente baixar um arquivo compactado do github, descompactá-lo e armazenar os dados em um quadro de dados (é um projeto do Coursera, mas o objetivo principal é criar um documento do Markdown e não baixar / descompactar o arquivo ... não estou perguntando como fazer minha lição de casa).

Meu código é o seguinte:

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)

Acredito que o erro ocorra no momento de descompactar o arquivo. O erro que recebo é o seguinte:

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

Alguém tem uma dica sobre onde está o erro?