# 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,
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,
bucket = "rgee_dev"
)
Map$centerObject(ee_raster_02)
Map$addLayer(ee_raster_02)
# }
Run the code above in your browser using DataLab