if (FALSE) {
library(rgee)
library(sf)
ee_Initialize(gcs = TRUE)
x <- st_read(system.file("shape/nc.shp", package = "sf"))
shp_dir <- sprintf("%s.shp", tempfile())
geozip_dir <- ee_utils_shp_to_zip(x, shp_dir)
# Return a JSON file
manifest <- ee_utils_create_manifest_table(
gs_uri = "gs://rgee_dev/nc.zip",
assetId = "users/datacolecfbf/nc"
)
# Return a list
ee_utils_create_manifest_table(
gs_uri = "gs://rgee_dev/nc.zip",
assetId = "users/datacolecfbf/nc",
returnList = TRUE
)
}
Run the code above in your browser using DataLab