如何解决当用户按下按钮放大该点时,如何在传单地图带有 Shiny上选择一个点时控制缩放速度?
我正在 Rmarkdown
、Flexdashboard
和 Shiny
中开发仪表板。目前我正在使用 Leaflet
来映射几个点,并且我有一个闪亮的输入,当按下按钮时,它会选择某个点并对其进行缩放。
我想知道有没有办法控制变焦速度。
图片示例:
地图的初始状态,点为蓝色。
用户选择点和按钮执行过滤和缩放的面板。
在这张图片中,我显示了对所选点的缩放,速度非常快。
我留下了一些示例代码,我会继续关注您的评论。谢谢。
{r chunk,echo = false}
leafletOutput(outputId = "mapa1")
# DATA FILTERED BY USER INPUT (1 point)
rbdFiltered <- reactive({
misDatos()[misDatos()$rdb == input$rbd,]
})
# LEAFLET OBJECT WITH ALL POINTS
myMap <- reactive({
input$params
leaflet() %>%
addTiles() %>%
addCircleMarkers(data = misDatos(),lng = ~ longitud,lat = ~ latitud,radius = 3,group = "myMarkers") %>%
setView(lng = -70.560946,lat = -33.592340,zoom = 13) # ZOOM SET HERE
})
# OBSERVE EVENT (Select a point)
observeEvent(input$BT_select_rbd,{
leafletProxy(mapId = "mapa1") %>% clearGroup(group = "myMarkers") %>%
addCircleMarkers(data = rbdFiltered(),group = "myMarkers") %>%
# HERE A ZOOM TO THE SELECTED POINT IS PROCESSED,IS IT POSSIBLE TO CONTROL THE SPEED?
setView(lng = rbdFiltered()$longitud,lat = rbdFiltered()$latitud,zoom = 17)
})
# OBSERVE EVENT (Show all points)
observeEvent(input$BT_todo_rbd,{
leafletProxy(mapId = "mapa1") %>% clearGroup(group = "myMarkers") %>%
addCircleMarkers(data = misDatos(),zoom = 13) # WE RETURN TO ORIGINAL ZOOM
})
output$mapa1 <- renderLeaflet({myMap()})
问候 编辑:图片
解决方法
不要在 Shiny 事件中使用 setView()
,而是尝试使用 leaflet::flyTo()
。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。