library(jsonlite)
library(RCurl)
library(terra)
## https://developers.zenodo.org/#authentication
TOKEN = scan("~/TOKEN_ACCESS", what="character")
dep.id = "5821865"
x = fromJSON(system(paste0('curl -H \"Accept: application/json\" -H \"Authorization: Bearer ',
TOKEN, '\" \"https://www.zenodo.org/api/records/', dep.id, '\"'), intern=TRUE))
## total list:
knitr::kable(head(x$files[,c("filename", "filesize")], n=15))
#|filename | filesize|
#|:-----------------------------------------|----------:|
#|s2_2019_summer_rgb_detail1.pgw | 103|
#|s2_2019_summer_rgb_detail1.png | 476706|
#|s2_2019_summer_rgb.pgw | 109|
#|s2_2019_summer_rgb.png | 2549363|
#|s2l2a_ard_20171202_20180320_blue_P50.tif | 3720087810|
#|s2l2a_ard_20171202_20180320_CNT.tif | 1360932066|
#|s2l2a_ard_20171202_20180320_green_P50.tif | 3797970929|
#|s2l2a_ard_20171202_20180320_nir_P50.tif | 4294966913|
#|s2l2a_ard_20171202_20180320_red_P50.tif | 3916592926|
#|s2l2a_ard_20171202_20180320_swir1_P50.tif | 3271441830|
#|s2l2a_ard_20171202_20180320_swir2_P50.tif | 3068163352|
#|s2l2a_ard_20180321_20180624_blue_P50.tif | 2722531657|
#|s2l2a_ard_20180321_20180624_CNT.tif | 1245994666|
#|s2l2a_ard_20180321_20180624_green_P50.tif | 2900266181|
#|s2l2a_ard_20180321_20180624_nir_P50.tif | 3996929184|
in.tif = paste0("/vsicurl/", x$links$latest_html,"/files/",x$files$filename[5])
rast(in.tif)
# class : SpatRaster
# dimensions : 152000, 188000, 1 (nrow, ncol, nlyr)
# resolution : 30, 30 (x, y)
# extent : 9e+05, 6540000, 900010, 5460010 (xmin, xmax, ymin, ymax)
# coord. ref. : +proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +units=m +no_defs
# source : s2l2a_ard_20171202_20180320_blue_P50.tif
# name : s2l2a_ard_20171202_20180320_blue_P50
