render mapboxer on shiny about mapboxer HOT 3 OPEN

data("World")
ui <- fluidPage(
  selectInput("var","escoge un continente",
              choices = list("Asia" = "Asia",
                             "Africa" = "Africa",
                             "Europa" = "Europe",
                             "America" = "North America")
              
              
  ),
  mapboxerOutput("map")
  
) 

server <- function(input, output, session) {
  
  dato <- reactive({
    
    World |> 
      filter(continent == input$var)
    
  })
  
  pal <- reactive({
    scales::col_quantile("Greys",  dato()$pop_est)
  })
  
  bbox <- reactive({
    unname(sf::st_bbox(dato() ))
  })
  
  output$map <- mapboxer::renderMapboxer({
    mapboxer(bounds = bbox(), pitch = 25, zoom = 10)
  })
  
  observeEvent(input$var, {    
    dplyr::mutate(color = pal(pop_est ))  |> 
      as_mapbox_source(dato ) |> 
      add_navigation_control() |> 
      add_fill_layer(
        fill_color = c("get", "color"),
        fill_opacity = 0.5,
        fill_outline_color = "white",
        popup = "Población estimada: {{pop_est}}"
      )
  })    
  
}

shinyApp(ui, server)