如何从R /闪亮的传单地图中获取缩放级别？

Question

我使用Shiny中的传单包创建了一个地图,它selectInput允许用户从站点列表中进行选择.站点列表还将传单添加为标记.

当用户选择新站点时,我想将地图重新​​定位到所选站点而不更改缩放级别.setView可以调用该函数来设置中心点,但必须指定缩放级别.

是否可以获得可在setView函数中使用的传单映射的缩放级别？

这是使用重置缩放级别来解决我的问题的最小示例.

library(shiny)
library(leaflet)

df <- data.frame(
    site = c('S1', 'S2'),
    lng = c(140, 120),
    lat = c(-20, -30), 
    stringsAsFactors = FALSE)

# Define UI for application that draws a histogram
ui <- shinyUI(fluidPage(
    selectInput('site', 'Site', df$site),
    leafletOutput('map')

))

server <- shinyServer(function(input, output, session) {

    output$map <- renderLeaflet({
        leaflet() %>%
            addTiles() %>% 
            setView(lng = 133, lat = -25,  zoom = 4) %>% 
            addMarkers(lng = df$lng, lat = df$lat)
    })

    observe({
        req(input$site)
        sel_site <- df[df$site == input$site,]
        isolate({
            leafletProxy('map') %>%
                setView(lng = sel_site$lng, lat = sel_site$lat, zoom = 4)
        })
    })
})

shinyApp(ui = ui, server = server)

PS:当您使用这些代码时,请在选择新网站之前调整缩放级别.

谢谢你的任何建议.

Answer 1

您可以使用input$mapid_zoom(请参阅此处)访问缩放级别.

在你observe,你可以这样做:

 observe({
                sel_site <- df[df$site == input$site,]
                isolate({
                        new_zoom <- 4
                        if(!is.null(input$map_zoom)) new_zoom <- input$map_zoom
                        leafletProxy('map') %>%
                                setView(lng = sel_site$lng, lat = sel_site$lat, zoom = new_zoom)
                })
        })