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

knitr::opts_chunk$set(echo = TRUE)
library(shiny)
library(leaflet)
# library(rgee)
# rgee::ee_Initialize()

ui = fluidPage(
  selectInput("region", "Region:",
              choices = colnames(WorldPhones)),
  plotOutput("phonePlot")
)

server = function(input, output) {
  output$phonePlot = renderPlot({
    barplot(WorldPhones[,input$region]*1000,
            ylab = "Number of Telephones", xlab = "Year")
  })
}
shinyApp(ui, server, options = list(height = 500))

rpkgs/rgee2 documentation built on May 31, 2024, 6:58 p.m.