# NOT RUN {
library(rgee)
library(stars)
library(sf)
ee_Initialize(user_gmail = "csaybar")
ee_check_drivers()
filename <- "users/csaybar/rgee_upload/"
ee_manage_create(filename)
tif = system.file("tif/geomatrix.tif", package = "stars")
geomatrix = read_stars(tif) %>% st_warp(crs=st_crs(4326))
delta_geomatrix <- c(attr(geomatrix,'dimensions')$x$delta,attr(geomatrix,'dimensions')$y$delta*-1)
plot(geomatrix)
ee_upload(x = geomatrix,filename = paste0(filename,"geomatrix"))
ee_geomatrix <- ee$Image(paste0(filename,"geomatrix"))
geomatrix_stars <- ee_as_thumbnail(x = ee_geomatrix,
scale = delta_geomatrix,
vizparams = list(min = 0, max = 255))
geomatrix_stars[geomatrix_stars<=0]=NA
names(geomatrix_stars) <- 'geomatrix.tif'
plot(geomatrix_stars)
#ee_manage_delete(filename) # Remove the folder created at the beginning
nc <- st_read(system.file("shp/arequipa.shp", package="rgee"))
nc_s <- suppressWarnings(st_simplify(nc, preserveTopology = TRUE, dTolerance = 0.05))
ee_upload(x = nc_s,filename = paste0(filename,"arequipa"))
ee_monitoring()
ee_manage_set_properties(path_asset = paste0(filename,"arequipa"),
properties = list(message='hello-world',language = 'R'))
# }
Run the code above in your browser using DataLab