## NOTE: Example is wrapped in `\dontrun{}` as function requires a large
## amount of data which is not included in the package.
if (FALSE) {
vnp46a2 <- process_blackmarble(
path =
list.files("./data", pattern = "VNP46A2.", full.names = TRUE),
date = "2024-01-01",
tile_df =
process_blackmarble_corners(hrange = c(8, 10), vrange = c(4, 5)),
subdataset = 3L,
crs = "EPSG:4326"
)
}
Run the code above in your browser using DataLab