if (FALSE) {
library(rgee)
library(sf)
ee_Initialize(gcs = TRUE)
# 1. Read dataset and create a output filename
x <- st_read(system.file("shape/nc.shp", package = "sf"))
assetId <- sprintf("%s/%s", ee_get_assethome(), 'toy_poly_gcs')
# 2. From sf to .shp
shp_dir <- sprintf("%s.shp", tempfile())
geozip_dir <- ee_utils_shp_to_zip(x, shp_dir)
# 3. From local to gcs
gcs_filename <- local_to_gcs(
x = geozip_dir,
bucket = "rgee_dev" # Insert your own bucket here!
)
# 4. Create Table Manifest
manifest <- ee_utils_create_manifest_table(
gs_uri = gcs_filename,
assetId = assetId
)
# 5. From GCS to Earth Engine
ee_nc <- gcs_to_ee_table(manifest, overwrite = TRUE)
ee_monitoring()
Map$addLayer(ee$FeatureCollection(ee_nc))
}
Run the code above in your browser using DataLab