Use clickEvents in shiny with tmap

Question

You can use clickEvents for the tmap package in shiny as in this example for leaflet in shiny.

However, I don't know how to acces the click events. On each click an Id is given, but where is this id linked to?

See the below example where the click events are printed on the console.

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)

I posted this also on https://gis.stackexchange.com/ – JdP Mar 04 '19 at 08:37 — JdP, Mar 04 '19 at 08:37
https://stackoverflow.com/a/42798668/5086335 – amrrs Mar 04 '19 at 12:29 — amrrs, Mar 04 '19 at 12:29
Thanks, the definition of layerId did the trick – JdP Mar 05 '19 at 10:49 — JdP, Mar 05 '19 at 10:49

score 0 · Accepted Answer · edited Mar 25 '19 at 08:35

0

The id is linked to the first column in the attached data of the leaflet object if there is no layerId given.

So the solution is to make make the first column an id column or specify an layerId in the shape plotting function

edited Mar 25 '19 at 08:35

marc_s

732,580
175
1,330
1,459

answered Mar 05 '19 at 10:50

JdP

714
7
14

Use clickEvents in shiny with tmap

1 Answers1