shiny + geemap about geemap HOT 3 OPEN

import ee
from shiny import App, reactive, render, ui
from shinywidgets import output_widget, render_widget
from faicons import icon_svg

ee.Initialize()

app_ui = ui.page_sidebar(
    ui.sidebar(
        ui.input_action_button(
            'button',
            'Generate map',
            icon = icon_svg('play')
        )
    ),
    ui.layout_column_wrap(
       output_widget('result')
    ),
    title    = "Test geemap",
    fillable = True,
)


def server(input, output, session):

    @reactive.calc
    @reactive.event(input.button)
    def generate_map():

        Map = geemap.Map(center=[40, -100], zoom=4)
        
        landsat7 = (
              ee.Image('LANDSAT/LE7_TOA_5YEAR/1999_2003')
              .select(['B1', 'B2', 'B3', 'B4', 'B5', 'B7'])
        )
        
        landsat_vis = {'bands': ['B4', 'B3', 'B2'], 'gamma': 1.4}
        
        Map.addLayer(landsat7, landsat_vis, "Landsat")
        
        hyperion = ee.ImageCollection('EO1/HYPERION').filter(ee.Filter.date('2016-01-01', '2017-03-01'))
        
        hyperion_vis = {
             'min': 1000.0,
             'max': 14000.0,
             'gamma': 2.5,
             }
        Map.addLayer(hyperion, hyperion_vis, 'Hyperion')

        return Map
    
    @output
    @render_widget
    def result():
        return generate_map()


app = App(app_ui, server)

# 1. Create the credentials file
ee_Initialize()

# 2. Copy credentials file to the project folder
file_credentials <- sprintf("%s/credentials", dirname(rgee::ee_get_earthengine_path()))
file.copy(file_credentials, to = ".")

# 3. Set ShinyApps account info
# FIRST MODIFY LOCAL .Renviron!!
error_on_missing_name <- function(name){
  var <- Sys.getenv(name, unset=NA)
  if(is.na(var)){
    stop(paste0("cannot find ",name),call. = FALSE)
  }
  gsub("\"", '',var)
}

rsconnect::setAccountInfo(name   = error_on_missing_name("SHINY_ACC_NAME"),
               token  = error_on_missing_name("TOKEN"),
               secret = error_on_missing_name("SECRET"))


# 4. Run the application
rsconnect::deployApp(
  appFiles = c("app.R", "utils.R", "credentials"),
  appTitle = "rgee_app_demo",
  lint = FALSE
)

# 5. Delete EE credentials file
file.remove("credentials")