Mapdeck inside golem shinyapp does not update! about mapdeck HOT 6 CLOSED

output$map_exp <- mapdeck::renderMapdeck({
          mapdeck::mapdeck(token = mb_token,
                           style = mapdeck::mapdeck_style("light"),
                           location = c(3.5, 43.45),
                           zoom = 3) %>%
            mapdeck::clear_polygon() %>%
            mapdeck::add_polygon(data = filtered_data,
                                 fill_colour = input$fill_variable_select,
                                 fill_opacity = 200,
                                 legend = TRUE,
                                 update_view = FALSE)
        })

library(shiny)
library(shinycssloaders)
library(shinyWidgets)
library(mapdeck)
library(sf)
library(dplyr)

mb_token <- ' ' #your token

ui <- fluidPage(

  #filter
  shinyWidgets::pickerInput("country", "Country", choices = NULL, selected = NULL, multiple = TRUE, options = list(`actions-box` = TRUE)),

  div(
    shinycssloaders::withSpinner(mapdeck::mapdeckOutput("map"), type = 3, color.background = "blue")
  ),
)

server <- function(input, output, session) {

  output$map <- mapdeck::renderMapdeck({
    mapdeck::mapdeck(token = mb_token,
                     style = mapdeck::mapdeck_style("light"),
                     location = c(3.5, 43.45),
                     zoom = 3)
  })

  EW_db_NUTS3 <- reactiveVal()
  EW_db <- sf::read_sf("~/Desktop/test.gpkg") #load the dataset (care with path)
  EW_db <- sf::st_transform(EW_db, crs = "+proj=longlat +datum=WGS84")
  EW_db_NUTS3(EW_db)  # Set the value of reactive variable

  shinyWidgets::updatePickerInput(session, "country", choices = unique(EW_db$CNTR_CODE))

  filtered_data <- reactive({

    EW_db <- EW_db_NUTS3()  # Get the value of reactive variable

    #filter by country
    if (!is.null(input$country)) {
      EW_db %>% dplyr::filter(CNTR_CODE %in% input$country)
    } else {
      EW_db
    }

  })

  observe({

        # Here, we establish a dependency on filtered_data()
        data <- filtered_data()
        print(data)

        mapdeck::mapdeck_update(map_id = "map") %>%
          mapdeck::add_polygon(
            data = data,
            fill_colour = input$fill_variable_select,
            fill_opacity = 200,
            legend = TRUE,
            update_view = FALSE)
      })

}

shinyApp(ui, server)

library(shiny)
library(shinycssloaders)
library(shinyWidgets)
library(mapdeck)
library(sf)
library(dplyr)

#read data
EW_db <- sf::read_sf("~/Desktop/test.gpkg")
EW_db <- sf::st_transform(EW_db, crs = "+proj=longlat +datum=WGS84")

mb_token <- ' ' #your mapdeck token

mod_ui <- function(id) {
  ns <- NS(id)
  tagList(
    # Filter
    pickerInput(ns("country"), "Country", choices = NULL, selected = NULL, multiple = TRUE, options = list(`actions-box` = TRUE)),

    div(
      withSpinner(mapdeckOutput(ns("map")), type = 3, color.background = "blue")
    )
  )
}

mod_server <- function(id, EW_db) {
  moduleServer(
    id,
    function(input, output, session) {
      output$map <- renderMapdeck({
        mapdeck::mapdeck(token = mb_token,
                         style = mapdeck::mapdeck_style("light"),
                         location = c(3.5, 43.45),
                         zoom = 3)
      })

      EW_db_NUTS3 <- reactiveVal(EW_db)

      observe({
        shinyWidgets::updatePickerInput(session, "country", choices = unique(EW_db$CNTR_CODE))
      })

      filtered_data <- reactive({
        EW_db <- EW_db_NUTS3()

        if (!is.null(input$country)) {
          EW_db %>% dplyr::filter(CNTR_CODE %in% input$country)
        } else {
          EW_db
        }
      })

      observeEvent(filtered_data(), {
        data <- filtered_data()
         print(data)

        mapdeck::mapdeck_update(map_id = "map") %>%
          mapdeck::add_polygon(
            data = data,
            fill_colour = input$fill_variable_select,
            fill_opacity = 200,
            legend = TRUE,
            update_view = FALSE
          )
      })
    }
  )
}

ui <- fluidPage(
  mod_ui("module"),
)

server <- function(input, output, session) {
  mod_server("module", EW_db)
}

shinyApp(ui, server)

 mapdeck::mapdeck_update(map_id = session$ns("map"))