R/shinyのチラシマップからズームレベルを取得するには？

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（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) 
       }) 
     })