r - 如何从R/Shiny中的传单 map 获取缩放级别？

我使用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：当您使用这些代码玩耍时，请在选择新站点之前调整缩放级别。

感谢任何建议。

最佳答案

您可以使用input$mapid_zoom（see here）访问缩放级别。

在您的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)
                })
        })

关于r - 如何从R/Shiny中的传单 map 获取缩放级别？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/34985889/