Downloading from Zenodo (2024)

download.R

# this has worked as of 2024-03-01

# Specific DOI - resolves to a fixed version
zenodo.id <- "123456"
# We will recover the rest from Zenodo API
zenodo.api = "https://zenodo.org/api/records/"
# where to save
dataloc <- here::here("data","downloaded


download.file(paste0(zenodo.api,zenodo.id),destfile=file.path(dataloc,"metadata.json"))
latest <- fromJSON(file=file.path(dataloc,"metadata.json"))

print(paste0("DOI: ",latest$links$doi))
print(paste0("Current: ",latest$links$html))
print(paste0("Latest: ",latest$links$latest_html))

# we download all the Rds files
file.list <- as.data.frame(latest$files) %>% select(starts_with("self")) %>% gather()

for ( value in file.list$value ) {
	print(value)
	if ( grepl("Rds",value ) ) {
	    file.name <- basename(value %>% str_remove("/content"))
	    message(paste0("Downloading... ",file.name))
	    download.file(value,destfile=file.path(dataloc,file.name))
	}
}