आर/चमक में लीफलेट मानचित्र से ज़ूम स्तर कैसे प्राप्त करें?

Question

मैं शाइन में लीफलेट पैकेज का उपयोग करके एक नक्शा बनाता हूं जिसमें उपयोगकर्ता की साइट सूची से चयन करने के लिए 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) 

पीएस: जब आप इन कोडों के साथ खेलते हैं, तो कृपया एक नई साइट चुनने से पहले ज़ूम स्तर समायोजित करें।

किसी भी सुझाव के लिए धन्यवाद।

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