使用 R 下载 NetCDF 文件：手动工作，但下载的文件较小

Question

我正在尝试从以下位置下载 NetCDF 文件： https://ftp.cpc.ncep.noaa.gov/NMME/prob/netcdf/

当我手动下载文件时，我得到了一个大约 5000 Kb 的文件，当使用下面的代码下载时，我得到了一个 119 Kb 的文件，但它不可用。

now <- as.Date(Sys.Date())
now <- paste0(substr(now,1,4),substr(now,6,7))
filename <- paste0('prate.',now,'.prob.adj.seas',".nc")
root <- 'https://ftp.cpc.ncep.noaa.gov/NMME/prob/netcdf/'
download.file(root, filename,mode = "wb")

有什么建议吗？谢谢

Answer 1

您错误地使用了

download.file()

的参数。尝试一下

# your code
now <- as.Date(Sys.Date())
now <- paste0(substr(now,1,4),substr(now,6,7))
filename <- paste0('prate.',now,'.prob.adj.seas',".nc")
root <- 'https://ftp.cpc.ncep.noaa.gov/NMME/prob/netcdf/' # main_url
# changes
path <- "YourPath/" # directory where to save the file, e.g.,
path <- getwd()
download.file(paste0(root, filename), destfile = file.path(path, basename(filename)))