In rpkgs/rgee2: Extra functions for R Google Earth Engine

knitr::opts_chunk$set(echo = TRUE)

library(rgee)
library(shiny)
library(leaflet)

ee_Initialize()

fluidPage(
  actionButton("recalc", "Add SRTM Global Map"),
  #p(),
  leafletOutput("mymap")
)

renderLeaflet({
  eventReactive(input$recalc, {
    m = leafletProxy("map") 
    m + Map$addLayer(ee$Image("srtm90_v4"), list(min = 0, max = 1000))
  }, ignoreNULL = FALSE)()
})
# shinyApp(ui = ui, server = server)

library(leaflet.minicharts)
library(manipulateWidget)

{
  m1 <- Map$addLayer(eeObject = ee$Image("CGIAR/SRTM90_V4")) %>%
    syncWith("one")

  m2 <- Map$addLayer(
    eeObject = ee$Image("CGIAR/SRTM90_V4"),
    visParams = list(min=0,max=3000)
  ) %>% syncWith("one")
  m = combineWidgets(m1, m2)
  m
}

library(leafsync)

# renderLeaflet
{
  m1 <- Map$addLayer(eeObject = ee$Image("CGIAR/SRTM90_V4"))

  m2 <- Map$addLayer(
    eeObject = ee$Image("CGIAR/SRTM90_V4"),
    visParams = list(min=0,max=3000)
  )
  m = sync(m1, m2)
  m
}