在闪亮的 tmap 中使用 clickEvents

Question

您可以将clickEvents 用于tmap 包，就像this example for leaflet in shiny 一样闪亮。

但是，我不知道如何访问点击事件。每次点击都会给出一个 ID，但这个 ID 链接到哪里？

请参阅下面的示例，其中单击事件打印在控制台上。

library(shiny)
library(tmap)
tmap_mode("view")
data("NLD_muni")

# User interface
ui <- fluidPage(
        mainPanel(
            leafletOutput("map")
        )
)

# Sever
server <- function(input, output) {

    # define map
    output$map <- renderLeaflet(
        tmap_leaflet(
            tm_shape(NLD_muni) +
                tm_polygons('pop_65plus') 
        )
    )


    # reactive values for map
    rv_map <-reactiveValues(Clicks=list())

    observeEvent(input$map_shape_click, {
        click <- input$map_shape_click
        print(str(click))
        rv_map$Clicks<-c(rv_map$Clicks, click$id)
        print(rv_map$Clicks)
    }) #END OBSERVE EVENT


}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

如果没有给定layerId，则id 链接到传单对象附加数据中的第一列。

所以解决方法是让第一列成为id列或在形状绘图函数中指定layerId