if (FALSE) { # isTRUE(as.logical(Sys.getenv("R_RGEEDIM_RUN_EXAMPLES"))) && gd_is_initialized()
# \donttest{
if (gd_is_initialized())
gd_image_from_id('CSP/ERGo/1_0/Global/SRTM_topoDiversity')
# }
}
if (FALSE) { # isTRUE(as.logical(Sys.getenv("R_RGEEDIM_RUN_EXAMPLES"))) && gd_is_initialized()
# \donttest{
if (gd_is_initialized())
# Find 1m DEMs in arbitrary extent
r <- gd_bbox(xmin = -121.4, xmax = -121.35, ymin = 37.55, ymax = 37.6)
# collection of individual tiles of DEM
x <- gd_collection_from_name("USGS/3DEP/1m")
# search within region
y <- gd_search(x, r)
gd_properties(y)
# }
}
if (FALSE) { # isTRUE(as.logical(Sys.getenv("R_RGEEDIM_RUN_EXAMPLES"))) && gd_is_initialized()
# \donttest{
if (gd_is_initialized())
# Find 1m DEM in arbitrary extent
r <- gd_bbox(xmin = -121.4, xmax = -121.35, ymin = 37.55, ymax = 37.6)
# collection of individual tiles of DEM
x <- gd_collection_from_name("USGS/3DEP/1m")
# search within region
y <- gd_search(x, r)
# select images with some condition of interest
z <- subset(gd_properties(y),
grepl("UpperSouthAmerican_Eldorado_2019", id) > 0)
# create encapsulated images from IDs returned by search
l <- lapply(z$id, gd_image_from_id)
# create a new collection from the list of images
if (FALSE) {
l2 <- gd_collection_from_list(l)
l2
}
### download composite of custom collection
# gd_download(gd_composite(l2),
# filename = "test.tif",
# region = r,
# crs = "EPSG:5070",
# scale = 30)
# }
}
if (FALSE) { # isTRUE(as.logical(Sys.getenv("R_RGEEDIM_RUN_EXAMPLES"))) && gd_is_initialized()
if (FALSE) {
if (gd_is_initialized())
gd_asset_id("RGEEDIM_TEST", "rgeedim-demo")
}
}
if (FALSE) { # isTRUE(as.logical(Sys.getenv("R_RGEEDIM_RUN_EXAMPLES"))) && gd_is_initialized()
if (FALSE) {
if (gd_is_initialized())
gd_list_assets("projects/rgeedim-demo")
}
}
Run the code above in your browser using DataLab