if (FALSE) {
# Define bearer token
bearer <- "BEARER-TOKEN-HERE"
# sf polygon of Ghana
library(geodata)
roi_sf <- gadm(country = "GHA", level=0, path = tempdir()) %>% st_as_sf()
# h5 files for Ghana for October 3, 2021
download_h5_files(roi_sf = roi_sf,
product_id = "VNP46A2",
date = "2021-10-03",
h5_dir = getwd(),
bearer = bearer)
# Make raster using h5_files
ken_202103_r <- bm_raster(roi_sf = roi_sf,
product_id = "VNP46A3",
date = "2021-03-01",
bearer = bearer,
h5_dir = getwd())
}
Run the code above in your browser using DataLab