rgee05.R
In rgee: R Bindings for Calling the 'Earth Engine' API

## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(eval = FALSE)

## -----------------------------------------------------------------------------
#  # remotes::install_github("r-spatial/rgee") Install rgee v.1.3
#  library(rgee)
#  
#  ee_Initialize("csaybar")
#  
#  SaK_file <- "/home/csaybar/Downloads/SaK_rgee.json" # PUT HERE THE FULLNAME OF YOUR SAK.
#  
#  # Assign the SaK to a EE user.
#  ee_utils_sak_copy(
#    sakfile =  SaK_file,
#    users = c("csaybar", "ryali93") # Unlike GD, we can use the same SaK for multiple users.
#  )
#  
#  # Validate your SaK
#  ee_utils_sak_validate()

## -----------------------------------------------------------------------------
#  library(rgee)
#  library(jsonlite)
#  library(googleCloudStorageR)
#  
#  ee_Initialize("csaybar", gcs = TRUE)
#  
#  # Create your own container
#  project_id <- ee_get_earthengine_path() %>%
#    list.files(., "\\.json$", full.names = TRUE) %>%
#    jsonlite::read_json() %>%
#    '$'(project_id) # Get the Project ID
#  
#  googleCloudStorageR::gcs_create_bucket("CHOOSE_A_BUCKET_NAME", projectId = project_id)
#  

## -----------------------------------------------------------------------------
#  demo_data <- data.frame(a = 1:10, b = 1:10)
#  
#  # Bad --------------------------------------------------
#  googleCloudStorageR::gcs_upload(
#    file = demo_data,
#    name = "demo_data.csv",
#    bucket = "demo_0002" # Bucket with uniform control access
#  )
#  #  Error: Insert legacy ACL for an object when uniform bucket-level access
#  #  is enabled. Read more at https://cloud.google.com/storage/docs/uniform-bucket-level-access
#  
#  
#  # Good -------------------------------------------------
#  googleCloudStorageR::gcs_upload(
#    file = demo_data,
#    name = "demo_data.csv",
#    bucket = "demo_0002", # Bucket with uniform control access
#    predefinedAcl = "bucketLevel"
#  )

## -----------------------------------------------------------------------------
#  library(rgee)
#  
#  ee_Initialize(gcs = TRUE)
#  
#  
#  # Define an image.
#  img <- ee$Image("LANDSAT/LC08/C01/T1_SR/LC08_038029_20180810")$
#    select(c("B4", "B3", "B2"))$
#    divide(10000)
#  
#  # Define an area of interest.
#  geometry <- ee$Geometry$Rectangle(
#    coords = c(-110.8, 44.6, -110.6, 44.7),
#    proj = "EPSG:4326",
#    geodesic = FALSE
#  )
#  
#  img_03 <- ee_as_raster(
#    image = img,
#    region = geometry,
#    container = "demo_0001",
#    via = "gcs",
#    scale = 1000
#  )
#  
#  # ERROR in Earth Engine servers: Unable to write to bucket demo_0001 (permission denied).