Загрузите спутниковые данные НАСА, используя RCurl в R

Question

Я пытаюсь загрузить файл ncdf, используя rCurl. Кто-нибудь может дать какой-нибудь совет, почему это не работает?

require(RCurl)
require(ncdf4)

url <- "https://oceandata.sci.gsfc.nasa.gov/MODIS-Aqua/Mapped/Seasonal_Climatology/4km/sst/"
filename <-"A20021722014263.L3m_SCSU_NSST_sst_4km.nc"

download.file(paste0(url, filename),destfile = paste0("~/Desktop/", filename), method="curl")

setwd("~/Desktop/")
files<-dir(pattern="*.nc")
f<-nc_open(files[1])

Ошибка в R_nc4_open: NetCDF: неизвестный формат файла

Ошибка в nc_open (файлы [1]):

Ошибка в nc_open при попытке открыть файлA20021722014263.L3m_SCSU_NSST_sst_4km.nc

Answer 1

Похоже, что загруженный файл является файлом ошибки в формате XML? Если вы откроете его в Блокноте, вы увидите, что он содержит такие вещи, как

Извините, произошла ошибка. Используйте кнопку «Назад», чтобы вернуться на предыдущую страницу или перейти на домашнюю страницу Ocean Color

Вы уверены, что имя файла, которое вы хотите загрузить, действительно существует в этом URL?