Skip to content

Instantly share code, notes, and snippets.

View csaybar's full-sized avatar
🇵🇪

Cesar Aybar csaybar

🇵🇪
View GitHub Profile
library(rgee)
ee_Initialize()
download_point <- function(point_name, output = ".") {
# Create folder
point_dir <- sprintf("%s/%s", output, point_name)
dir.create(point_dir, showWarnings = FALSE)
@csaybar
csaybar / rgee_demos.R
Created March 8, 2021 22:23
rgee v.1.0.9
# Spatial R packages ------------------------------------------------------
library(cptcity)
library(mapview)
library(leaflet)
library(rgee)
library(sf)
# Initialize Google Earth Engine (Just One time)
ee_Initialize()
@csaybar
csaybar / stack_q.R
Last active January 23, 2021 22:03
library(dplyr)
library(rgee)
library(sf)
library(googledrive)
library(googleCloudStorageR)
library(lwgeom)
library(reticulate)
library(jsonlite)
@csaybar
csaybar / img.R
Created January 5, 2021 17:44
RGEE_EXAMPLES_IMAGES
Save here your images
library(rgee)
# -------------------------------------------------------------------------
# 1. Load Earth Engine ----------------------------------------------------
# -------------------------------------------------------------------------
ee_Initialize(drive = TRUE)
# -------------------------------------------------------------------------
# 2. Auxiliary functions --------------------------------------------------
@csaybar
csaybar / deletesen2cube.py
Created December 10, 2020 10:58
delete_files
from typing import List
import datetime
import pathlib
import re
class Sen2CubeFiles:
def __init__(self, path: str):
self.path = path
self.__fake_path = path
self._files = self.search_iter(".")
@csaybar
csaybar / rgee.R
Created December 5, 2020 14:23
antony
## Travel time to school facilities as a marker of geographical ##
## accessibility across heterogeneous land cov ##
##' @GabrielCarrasco-Escobar, @EdgarManrique, @KellyTello-Lizarraga, ##
##' @J.JaimeMiranda,@AntonyBarja ##
##'-------------------------------------------------------------------##
# Requerements
library(tidyverse)
library(cptcity)
library(rgee)
@csaybar
csaybar / rgee_gif.R
Created August 21, 2020 14:23
gif creator
library(rgee)
ee_Initialize()
col <- ee$ImageCollection("JRC/GSW1_1/YearlyHistory")$map(function(img) {
year <- img$date()$get("year")
yearImg <- img$gte(2)$multiply(year)
despeckle <- yearImg$connectedPixelCount(15, TRUE)$eq(15)
yearImg$updateMask(despeckle)$selfMask()$set("year", year)
})
library(stars)
library(rgee)
# remotes::install_github("r-spatial/rgee@v.1.0.5")
ee_Initialize("csaybar", gcs = TRUE)
# Properties to attach to the uploaded raster
raster_properties <- list(prop2=1, prop1=2)
# -------------------------------------------------------------
@csaybar
csaybar / animation_01.R
Created August 9, 2020 10:22
rgee animations
library(rgee)
library(magick)
ee_Initialize()
col <- ee$ImageCollection("JRC/GSW1_1/YearlyHistory")$map(function(img) {
year <- img$date()$get("year")
yearImg <- img$gte(2)$multiply(year)
despeckle <- yearImg$connectedPixelCount(15, TRUE)$eq(15)
yearImg$updateMask(despeckle)$selfMask()$set("year", year)