Question

我想要做的很简单。我希望能够在Shiny / Leaflet地图上保存所有点击事件。这是一些示例代码：

library(raster)
library(shiny)
library(leaflet)

#load shapefile
rwa <- getData("GADM", country = "RWA", level = 1)

shinyApp(
  ui = fluidPage(
    leafletOutput("map")
  ), 

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

    #initial map output
    output$map <- renderLeaflet({
      leaflet() %>% 
        addTiles() %>% 
        addPolygons(data = rwa, 
                    fillColor = "white", 
                    fillOpacity = 1, 
                    color = "black", 
                    stroke = T, 
                    weight = 1, 
                    layerId = rwa@data$OBJECTID, 
                    group = "regions")
    }) #END RENDER LEAFLET

    observeEvent(input$map_shape_click, {

      #create object for clicked polygon
      click <- input$map_shape_click

      print(click$id)

    }) #END OBSERVE EVENT
  }) #END SHINYAPP

如您所见，我可以在单击多边形时打印单击ID（或整个单击事件）。很容易。但是，当我单击另一个多边形时，有关我的第一个单击多边形的所有信息都将丢失。我看到autoDestroy = F中存在observeEvent的参数选项，但我不确定如何使用它来保存以前单击的多边形。有没有办法可以存储我的所有点击/点击向量或列表中的$ ID？

Answer 1

您可以使用reactiveValues来存储点击次数。

在服务器功能顶部添加

RV<-reactiveValues(Clicks=list())

然后将observeEvent更改为：

observeEvent(input$map_shape_click, {

      #create object for clicked polygon
      click <- input$map_shape_click
      RV$Clicks<-c(RV$Clicks,click$id)
      print(RV$Clicks)

 }) #END OBSERVE EVENT

每次点击都会发生什么，id会附加到list中存储的点击数RV$Clicks。这不一定是list，如果对您更好，可以将其设为vector。

如何在Leaflet Shiny地图中“保存”点击事件

1 个答案: