我在尝试用R下载文件时遇到问题

因此，我试图在新冠病毒数据分析方面发挥一些作用。我正试图重现事物。
但我从一开始就有麻烦：

下载它使用的数据

## source data files
filenames <- c('time_series_covid19_confirmed_global.csv',
'time_series_covid19_deaths_global.csv',
'time_series_covid19_recovered_global.csv')
url.path <- paste0('https://raw.githubusercontent.com/CSSEGISandData/COVID-19/',
'master/csse_covid_19_data/csse_covid_19_time_series/')

## download files to local
download <- function(filename) {
url <- file.path(url.path, filename)
dest <- file.path('./data', filename)
download.file(url, dest)
}
bin <- lapply(filenames, download)

## load data into R
raw.data.confirmed <- read.csv('./data/time_series_covid19_confirmed_global.csv')
raw.data.deaths <- read.csv('./data/time_series_covid19_deaths_global.csv')
raw.data.recovered <- read.csv('./data/time_series_covid19_recovered_global.csv')

现在我探索了两个方向：

• 我想这个链接可能已经过时了，所以我做了一些修改，但还是有同样的错误：

• 现在我认为myaby这是一个

  dest

  问题，并在我的wroking目录中创建了一个

  data

  文件夹，有效地更改了我的错误，但仍然给了我一个：

现在我不确定它为什么会改变错误，因为我认为

下载（url，dest）

中的

dest

是本地保存，但不是硬保存 我更不确定下一步要检查什么

我愿意以任何其他更安全/更可靠或可复制的方式下载此文件。

---

我只想找到一种方法，使每天（从）自动获取新文件。

您的

dest

文件路径中需要一个尾随斜杠：

dest <- file.path('./data/', filename)

---

dest看起来像是将文件名向量分配给
文件名
，但在
lappy
函数中调用
filename
。
## fichiers sources
filenames <- c("10-31-2020.csv")
url.path <- paste0("https://github.com/CSSEGISandData/COVID-19",
                   "blob/master/csse_covid_19_data/csse_covid_19_daily_reports")

## download files to local
download <- function(filename) {
  url <- file.path(url.path, filename)
  dest <- file.path('./data', filename)
  download.file(url, dest)
}
bin <- lapply(filenames, download)

 Error in download.file(url, dest) : 
  cannot open destfile './data/10-31-2020.csv', reason 'No such file or directory'

trying URL 'https://github.com/CSSEGISandData/COVID-19blob/master/csse_covid_19_data/csse_covid_19_daily_reports/10-31-2020.csv'
Error in download.file(url, dest) : 
  cannot open URL 'https://github.com/CSSEGISandData/COVID-19blob/master/csse_covid_19_data/csse_covid_19_daily_reports/10-31-2020.csv'
In addition: Warning message:
In download.file(url, dest) :
 
 Error in download.file(url, dest) : 
  cannot open URL 'https://github.com/CSSEGISandData/COVID-19blob/master/csse_covid_19_data/csse_covid_19_daily_reports/10-31-2020.csv'

dest <- file.path('./data/', filename)