if (FALSE) {
if (gd_is_initialized()) {
r <- gd_bbox(
xmin = -120.6032,
xmax = -120.5377,
ymin = 38.0807,
ymax = 38.1043
)
i <- gd_image_from_id('CSP/ERGo/1_0/US/CHILI')
ex <- gd_export(
i,
region = r,
type = "asset",
filename = "RGEEDIM_TEST",
folder = "rgeedim-demo",
scale = 30
)
gd_task_status(ex)
r <- gd_download(
gd_task_uri(ex),
filename = "image.tif",
region = r,
overwrite = TRUE
)
library(terra)
plot(rast(r))
}
}
Run the code above in your browser using DataLab