Nothing
## ----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).
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.