render mapboxer on shiny

[Jorge-hercas]

Hello everyone, i have a problem to render a filtered mapboxer on shiny. I get the error Problem withmutate()columncolor. e[34mℹe[39m color = pal(pop_est). e[31mxe[39m unused argument (pop_est) and i don't now why.

Any ideas or suggestions?
Thanks for reading me
The code is the following:

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){
  
  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 <- renderMapboxer({
    
    dato() %>%
      dplyr::mutate(color = pal(pop_est)) %>%
      as_mapbox_source() %>%
      mapboxer(bounds = bbox(), pitch = 25, zoom = 10) %>%
      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)

[crazycapivara]

Hi @Jorge-hercas If you want to update / filter an already rendered map it is recommended to use use mapboxer_proxy and update_mapboxer in conjunction with the filter parameter. To update the extend you can use fit_bounds.

[Jorge-hercas]

Thanks a lot for the answer
I tried it but I get an error again :(

The code is the following:

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)

[crazycapivara]

Please see this example