# NOT RUN {
library(rgee)
library(stars)
ee_Initialize(gcs = TRUE)
# Get the filename of a image
tif <- system.file("tif/L7_ETMs.tif", package = "stars")
x <- read_stars(tif)
assetId <- sprintf("%s/%s",ee_get_assethome(),'stars_l7')
# # Method 1
# # 1. Move from local to gcs
# gs_uri <- local_to_gcs(x = tif, bucket = 'rgee_dev')
#
# # 2. Pass from gcs to asset
# gcs_to_ee_image(
# x = x,
# overwrite = TRUE,
# gs_uri = gs_uri,
# assetId = assetId
# )
#
# # OPTIONAL: Monitoring progress
# ee_monitoring()
#
# # OPTIONAL: Display results
# ee_raster_01 <- ee$Image(assetId)
# Map$centerObject(ee_raster_01)
# Map$addLayer(ee_raster_01)
#
# # Method 2
# ee_raster_02 <- raster_as_ee(
# x = x,
# assetId = assetId,
# overwrite = TRUE,
# bucket = "rgee_dev"
# )
# Map$centerObject(ee_raster_02)
# Map$addLayer(ee_raster_02)
# }
Run the code above in your browser using DataLab