如何在selectInput中的列表中選擇設置視圖選擇

Question

我試圖從列表中選擇一個地方，然後轉到它由單張包提供的地圖。

我嘗試這樣做：

首先，創建UI上的

vars <- c(
    "LAS CRUZADAS" = "lc", 
    "PUENTE SAN ISIDRO" = "psi", 
    "FUNDO EL PROGRESO" = "fep", 
    "CALLE SANTA MARÍA" = "csm", 
    "ASENTAMIENTO NOGALES" = "an" 
) 

然後設置面板

navbarPage("PLATAFORMA NAUTILUS", id="nav", 

    absolutePanel(id = "controls", class = "panel panel-default", fixed = TRUE, 
        draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto", 
        width = 330, height = "auto", 

        h2(""), 


        selectInput("color", "Seleccionar Estación", vars) 
       ), 
) 

服務器

的變量，在各自的添加標記地方

output$mymap <- renderLeaflet({ 
    leaflet() %>% addTiles() %>% 
           #h   v 
     addCircleMarkers(lng=-71.294563, lat=-32.933843, color="blue" ,popup="LAS CRUZADAS") %>% 
     addCircleMarkers(lng=-71.240000, lat=-32.900000, color="blue" ,popup="PUENTE SAN ISIDRO") %>% 
     addCircleMarkers(lng=-71.226667, lat=-32.832778, color="blue" ,popup="CALLE SANTA MARÍA") %>% 
     addCircleMarkers(lng=-71.183889, lat=-32.733333, color="blue" ,popup="ASENTAMIENTO NOGALES") %>% 
     addCircleMarkers(lng=-71.221667, lat=-32.866111, color="blue" ,popup="FUNDO EL PROGRESO") %>% 

     setView(lng=-71.294563, lat=-32.933843, zoom=11) 
    }) 

Answer 1

使用data.frame存儲每個位置的緯度/經度，然後使用observeEvent並在選擇更改時更新傳單。

要更新傳單閃亮的你應該使用leafletProxy更新地圖

這裏的工作示例

library(shiny) 
library(leaflet) 

df_vars <- data.frame(location = c("LAS CRUZADAS","ASENTAMIENTO NOGALES"), 
              lat = c(-32.9338, -32.8661), 
              lon = c(-71.2945, -71.2216) 
) 

ui <- fluidPage(

    selectInput(inputId = "myLocations", label = "Locations", 
          choices = df_vars$location), 

    leafletOutput(outputId = "mymap") 

) 

server <- function(input, output){ 

    output$mymap <- renderLeaflet({ 

     leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(lng=-71.294563, lat=-32.933843, color="blue" ,popup="LAS CRUZADAS") %>% 
      addCircleMarkers(lng=-71.221667, lat=-32.866111, color="blue" ,popup="FUNDO EL PROGRESO") 
    }) 

    observeEvent({ 
     input$myLocations 
     },{ 
      selectedLocation <- df_vars[df_vars$location == input$myLocations, c("lat","lon")] 

      leafletProxy(mapId = "mymap") %>% 
       setView(lng = selectedLocation$lon, lat = selectedLocation$lat, zoom = 11) 
     }) 

} 

shinyApp(ui, server)