leafletProxy not working

[enFinExplorer]

Code example

`
output$map <- renderLeaflet({
leaflet() %>%
addProviderTiles(providers$Esri.WorldGrayCanvas)
})

observeEvent(input$fromDate, {
leafletProxy("map") %>%
clearMarkers() %>%
addMarkers(lng = filtered_deals()$LONGITUDE, lat = filtered_deals()$LATITUDE)
})`

Bug description

While leaflet seems to initiate just fine, I'd like to be able use leafletProxy as I do in other dashboard apps, but for some reason nothing actually happens when I do anything with it. All of the other functionality in the app seems to be working.

Anyone experience similar behavior and have a fix?

Expected behavior

I'd expect markers to show up dynamically as I filter.

Comments

No response

[marcusyoung]

@enFinExplorer Did you ever find a solution for this?

[enFinExplorer]

@enFinExplorer Did you ever find a solution for this?

Sure. I used regular shiny and a lot of css to make it look like shiny.fluent and didn't use the package at all.

[marcusyoung]

I have this working fine. Not quite the same as you as I pass the leaflet proxy to a module. But I did need to make the proxy a reactive first, and pass that to the module:

proxymap <- reactive(leafletProxy('map'))

[enFinExplorer]

I have this working fine. Not quite the same as you as I pass the leaflet proxy to a module. But I did need to make the proxy a reactive first, and pass that to the module:

proxymap <- reactive(leafletProxy('map'))

Awesome. Can you provide other server inputs? Not quite sure how this is working from your post. How would I adjust my code above to account for this? I'd like to give it another shot as I do really like the layout of fluent.

[marcusyoung]

I'm using modules (and also Rhino). I have a map module which calls a setview module that has a button that when clicked runs the setView() leaflet function and changes the centre and zoom of the map. The two modules are shown below. Of course, the map module is itself called by main.R, but I'm not showing that here. Hope this is of some help.

# /app/view/map.R

box::use(
  leaflet[addTiles, leaflet, leafletOutput, leafletProxy, renderLeaflet, setView],
  shiny[moduleServer, NS, reactive, tagList],
)

box::use(
  app/view/setview,
)

#' @export
ui <- function(id) {
  ns <- NS(id)
  tagList(
    setview$ui(ns("setview")),
    leafletOutput(ns("map"))
  )
}

#' @export
server <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      output$map <- renderLeaflet({
        leaflet() |>
          addTiles() |>
          setView(-93.65, 42.0285, zoom = 17)
      })
      proxymap <- reactive(leafletProxy("map"))
      setview$server("setview", proxymap)
    }
  )
}

# /app/view/setview.R

box::use(
  leaflet[addMarkers, setView],
  shiny[moduleServer, NS, observeEvent],
  shiny.fluent[DefaultButton.shinyInput],
)

#' @export
ui <- function(id) {
  ns <- NS(id)
  DefaultButton.shinyInput(ns("setview"), text = "Set map view")
}

#' @export
server <- function(id, proxymap) {
  moduleServer(id, function(input, output, session) {
    observeEvent(input$setview, {
      proxymap() |>
        setView(-0.12776, 51.50735, zoom = 14)
    })
  })
}

[enFinExplorer]

Ok, this works for a single page app. Thanks folks!

`
library(shiny)
library(shiny.fluent)
library(leaflet)

ui <- fluentPage(
Stack(
tokens = list(childrenGap = 10),

  DatePicker.shinyInput("fromDate", label = "Select Date", value = Sys.Date()),
  
  DefaultButton.shinyInput("setview", text = "Set map view"), # Button to test leafletProxy
  
  leafletOutput("map", height = "600px")
)

)

server <- function(input, output, session) {
deals_data <- data.frame(
LONGITUDE = c(-95.4, -96.1, -94.8),
LATITUDE = c(29.7, 30.2, 28.9),
DATE = as.Date(c("2025-02-01", "2025-02-15", "2025-02-25")) # Example dates
)

output$map <- renderLeaflet({
  leaflet() %>%
    addProviderTiles(providers$Esri.WorldGrayCanvas) %>%
    setView(lng = -95.4, lat = 29.7, zoom = 10)
})

proxymap <- reactive({
  leafletProxy("map")
})

filtered_deals <- reactive({
  req(input$fromDate)  # Ensure a date is selected
  filter_date <- as.Date(input$fromDate)
  deals_data[deals_data$DATE >= filter_date, ] # Filter deals by date
})

observeEvent(filtered_deals(), {
  proxymap() %>%
    clearMarkers() %>%
    addMarkers(
      lng = filtered_deals()$LONGITUDE,
      lat = filtered_deals()$LATITUDE
    )
})

observeEvent(input$setview, {
  proxymap() %>%
    setView(lng = -95.4, lat = 29.7, zoom = 14) # Move to London
})

}

shinyApp(ui, server)
`