r - Leafler R Shiny:点击事件在地图中添加新标记
问题描述
我在 R Shiny 中使用传单库。我想通过鼠标单击在地图上添加一个新标记。我可以使用input$mapid_click
选项获取纬度和经度。但我无法使用新标记更新闪亮应用程序中的地图。
解决方案
您可以使用该leafletProxy
功能添加它们。
library(shiny)
library(leaflet)
ui <- fluidPage(
leafletOutput('map')
)
server <- function(input, output, session) {
output$map <- renderLeaflet({leaflet()%>%addTiles()})
observeEvent(input$map_click, {
click = input$map_click
leafletProxy('map')%>%addMarkers(lng = click$lng, lat = click$lat)
})
}
shinyApp(ui, server)
推荐阅读
- android - 如何在两个 PreferenceFragmentCompat 类之间传递数据?
- reactjs - 反应日期选择器和打字稿
- python - 如何从 Python 中椭圆的一般方程绘制椭圆
- here-api - 如何删除此处自动完成 API 返回的事实上的重复项
- node.js - 是否有任何选项可以使用 Firestore Geopoint 节点 js 选择 10 公里之间的记录
- python - 用python解析xml,很多类似的属性
- html - 如何防止我的背景封面图像在调整大小(响应式)时被切断?
- php - 无法打开流。没有这样的文件或目录 Request2.php
- python - 在数组中切片字符串对象
- postgresql - 如何解决问题:“System.InvalidOperationException:引发了一个异常,可能是由于暂时性故障。”