изменения selectinput, но никакой реакции от выхода - PullRequest
0 голосов
/ 16 сентября 2018

Добрый вечер,

код, который я использую, очень прост

UI:

   selectInput("var", label = h4("choose a place"), choices =       c("",as.character(Places$Adr)), selected = "", width = "90%")),
    mainPanel(leafletOutput("mymap"),tableOutput("table"))

Сервер:

output$mymap <- renderLeaflet({

      leaflet() %>% addTiles() %>%
        #addCircles(lng = as.numeric(Places$Long), lat = as.numeric(Places$Lat), weight = 1) }

но когда я выбираю элемент из списка, вывод (mymap) не меняется !! я должен использовать obsereEvent?

1 Ответ

0 голосов
/ 16 сентября 2018

Ваш виджет пользовательского интерфейса не используется вашим сервером.

В пользовательском интерфейсе вы назвали свой selectInput с именем "var".Чтобы использовать значение из этого виджета, вам нужно обратиться к input$var на вашем сервере.

...