selectinput发生更改，但输出没有任何反应

Question

晚上好

我使用的代码非常简单

用户界面：

   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吗？

Answer 1

您的服务器未使用您的UI小部件。

在用户界面中，您将selectInput命名为"var"。要使用此小部件中的值，您需要在服务器中引用input$var。