单击标记打开绘图/数据表

Question

我在和闪亮一起写传单。工具是基本的，我有一个地图与一些标记（来自一个表与长和LAT）。

有没有一个简单的方法做这件事？

您是否有一个非常简单的例子：您在地图上有一个制造者，您单击标记，然后打开一个图、一个表或jpeg？

Answer 1

这里是另一个例子，取自这里，并进行了一点点改编。当您点击一个标记时，下表将相应地改变。

除此之外，这里的手册是一个很好的资源：https://rstudio.github.io/leaflet/shiny.html

library(leaflet)
library(shiny)
myData <- data.frame(
  lat = c(54.406486, 53.406486),
  lng = c(-2.925284, -1.925284),
  id = c(1,2)
)
ui <- fluidPage(
  leafletOutput("map"),
  p(),
  tableOutput("myTable")
)
server <- shinyServer(function(input, output) {
  data <- reactiveValues(clickedMarker=NULL)
  # produce the basic leaflet map with single marker
  output$map <- renderLeaflet(
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      addCircleMarkers(lat = myData$lat, lng = myData$lng, layerId = myData$id)  
  )
  # observe the marker click info and print to console when it is changed.
  observeEvent(input$map_marker_click,{
    print("observed map_marker_click")
    data$clickedMarker <- input$map_marker_click
    print(data$clickedMarker)
    output$myTable <- renderTable({
      return(
        subset(myData,id == data$clickedMarker$id)
      )
    })
  })
})
shinyApp(ui, server)