# NOT RUN {
library(rgee)
library(stars)
library(sf)
ee_users()
ee_reattach() # reattach ee as a reserved word
ee_Initialize()
# Define study area (local -> earth engine)
# Communal Reserve Amarakaeri - Peru
rlist <- list(xmin = -71.13, xmax = -70.95,ymin = -12.89, ymax = -12.73)
ROI <- c(rlist$xmin, rlist$ymin,
rlist$xmax, rlist$ymin,
rlist$xmax, rlist$ymax,
rlist$xmin, rlist$ymax,
rlist$xmin, rlist$ymin)
ee_ROI <- matrix(ROI, ncol = 2, byrow = TRUE) %>%
list() %>%
st_polygon() %>%
st_sfc() %>%
st_set_crs(4326) %>%
sf_as_ee()
amk_fc <- ee$FeatureCollection(
list(ee$Feature(ee_ROI$geometry(), list(name = "Amarakaeri")))
)
assetid <- paste0(ee_get_assethome(), '/geom_Amarakaeri')
task_vector <- ee_table_to_asset(
collection = amk_fc,
assetId = assetid
)
task_vector$start()
ee_monitoring(task_vector) # optional
ee_fc <- ee$FeatureCollection(assetid)
Map$centerObject(ee_fc)
Map$addLayer(ee_fc)
# }
Run the code above in your browser using DataLab