在我的简单闪亮应用程序中,我可以拖动Map上的标记,并在observe
函数中查看它们的新坐标:
coords_data <- data.frame(id = 1:3, lng = c(2, 30, 50), lat = c(48, 40, 60))
library(shiny)
library(leaflet)
library(tidyverse)
ui = fluidPage(
leafletOutput('map'),
textOutput('dragEndLocation')
)
server = function(input, output, session){
output$map <-renderLeaflet({
leaflet()%>%
addTiles()%>%
addMarkers(data = coords_data,
options = markerOptions(draggable = TRUE))
})
observe({
print(input$map_marker_dragend)
})
}
shinyApp(ui, server)
然而,我想打印的最终坐标在一个表,我不知道如何!我试过this example,但没有成功。
此外,我想用圆圈替换标记:
coords_data <- data.frame(id = 1:3, lng = c(2, 30, 50), lat = c(48, 40, 60))
library(shiny)
library(leaflet)
library(tidyverse)
ui = fluidPage(
leafletOutput('map'),
textOutput('dragEndLocation')
)
server = function(input, output, session){
output$map <-renderLeaflet({
leaflet()%>%
addTiles()%>%
addCircles(data = coords_data,
options = markerOptions(draggable = TRUE),
radius = 100,color="red")%>%
addDrawToolbar(circleOptions=NA, markerOptions=NA,
polygonOptions=NA, rectangleOptions=NA,
polylineOptions=NA)
})
observe({
print(input$map_marker_dragend)
})
}
shinyApp(ui, server)
在这种情况下,我仍然可以移动圆,但我不知道如何获得它们的新坐标。任何帮助或建议?
1条答案
按热度按时间q43xntqr1#