R小册子中的标记鼠标点击事件有光泽
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了R小册子中的标记鼠标点击事件有光泽相关的知识,希望对你有一定的参考价值。
如何在R中的传单地图中的标记上接收鼠标单击事件?我正在使用RStudio /传单并通过Shiny运行。
我想获取标记的值(例如,ID)并使用它来更新sidebarPanel。
答案
你想使用input$MAPID_marker_click
。请参阅下面的示例。
library(shiny)
library(leaflet)
latitude <- c(35.94077, 35.83770, 35.84545, 35.81584, 35.79387, 36.05600)
longitude <- c(-78.58010, -78.78084, -78.72444, -78.62568, -78.64262, -78.67600)
radius<-c(15, 12, 12, 12, 12, 15)
ids<-c("a", "b", "c", "d", "e", "f")
shinyApp(
ui = fluidPage(
fluidRow(
leafletMap(
"map", "100%", 400,
initialTileLayer = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
initialTileLayerAttribution = html('Maps by <a href="http://www.mapbox.com/">Mapbox</a>'),
options=list(
center = c(37.45, -93.85),
zoom = 4,
maxBounds = list(list(17, -180), list(59, 180))))),
fluidRow(verbatimTextOutput("Click_text"))),
server = function(input, output, session){
map = createLeafletMap(session, 'map')
session$onFlushed(once=T, function(){
map$addCircleMarker(lat = latitude,
lng = longitude,
radius = radius,
layerId=ids)
})
observe({
click<-input$map_marker_click
if(is.null(click))
return()
text<-paste("Lattitude ", click$lat, "Longtitude ", click$lng)
text2<-paste("You've selected point ", click$id)
map$clearPopups()
map$showPopup( click$lat, click$lng, text)
output$Click_text<-renderText({
text2
})
})
}
)
layerId
函数中的addCircleMarker
论证将ids
传递给click$id
。
以上是关于R小册子中的标记鼠标点击事件有光泽的主要内容,如果未能解决你的问题,请参考以下文章