如何根据来自R Shiny内的小叶映射的输入来过滤数据表？

library(shiny)
library(leaflet)

ui <- fluidPage(
  leafletOutput("map"),
  tableOutput("table")
)

server <- function(input, output) {
  # 加载数据表
  data <- read.csv("data.csv")
  
  # 在地图上显示数据点
  output$map <- renderLeaflet({
    leaflet(data) %>%
      addTiles() %>%
      addMarkers(~latitude, ~longitude)
  })
  
  # 根据地图选择的数据点来过滤数据表
  output$table <- renderTable({
    selected <- input$map_marker_click
    if (!is.null(selected)) {
      filtered <- data[data$latitude == selected$lat & data$longitude == selected$lng, ]
      filtered
    } else {
      data
    }
  })
}

shinyApp(ui, server)