# NOT RUN {
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