awesome - ¿Cómo puedo pasar información de la ventana emergente de Leaflet a Shiny output?

r leaflet weight

Question

Tengo un mapa de folleto (myMap) que he creado a partir de un shapefile y datos demográficos. El mapa muestra los polígonos (condados). Cuando ejecuto este mapa por su cuenta, o cuando lo renderizo desde Shiny, puedo hacer clic en un condado y la ID del condado aparece en la ventana emergente que creé.

Lo que estoy atrapado tratando de averiguar es cómo acceder a mis valores emergentes (ID) desde Shiny. Por ejemplo, en mi aplicación Shiny me gustaría hacer clic en el condado y hacer que la ID del condado se publique en una pantalla de texto o se almacene como una variable.

Aquí está el código relevante:

ui <- dashboardPage(
dashboardBody(fluidRow(
box(width = 9, status = "info", title = "CountyMap",
leafletOutput("myMap"))
)
server <- function(input, output) {
output$myMap <- renderLeaflet({map2})
observe({
event <- input$myMap_shape_click
if (is.null(event))
return()
print(map2$county) # I know that''s not correct,
# but I want the county id from my leaflet popup!
val <- map2$county # Obviously not correct either,
}) # but I would like to store this data

En caso de que esto ayude, el mapa Leaflet que llamo desde Shiny (arriba) se ve más o menos así, donde "mapable" es un gran marco de datos de polígonos espaciales:

popup <- paste0("ID: ", mapable$countyID)
map2 <-leaflet() %>%
addPolygons(data = mapable,
popup = popup
) 

¡Cualquier pensamiento o empuje en la dirección correcta sería muy apreciado!

Answer 1

¡Gracias al usuario5219763 por informarme sobre el argumento de layerId! Volví a mi mapa de folleto y agregué un argumento vectorizado para layerID. En mi caso, creé un vector de valores de la columna "GEO_ID" en el "marco de datos de grandes polígonos espaciales" que utilicé para el mapa.

geoID <- as.vector(mapable$GEOID)
map2 <-leaflet() %>%
addPolygons(data = mapable,
layerId = geoID,
popup = popup
)

Cuando ejecuto la aplicación brillante y hago clic en un polígono (condado), puedo probar que el layerId también se está pasando:

 observe({
event <- input$myMap_shape_click
if (is.null(event))
return()
print(event)
})