Shiny 选择输入和传单不连接

我正在尝试将shinyApp与传单包装一起使用。我已尝试使用仪表板中的“SelectInput”功能根据所选输入（国家/地区）创建反应式地图。但是，我无法使传单和SelectInput相互连接

这是我的密码：

library(shiny)
library(leaflet)

ui <- (fluidPage(
titlePanel(title = "Pig breeding countries in 2000 - Top 5"),
sidebarLayout(
sidebarPanel(
selectInput(inputId = "country",
label = "Select a country to view it's values       (you can choose more than one):",
 c("Brazil", "China", "Russia", "USA", "Vietnam"), multiple = TRUE
              )
  ),
#mainPanel must be outside the sidebarLayout argument
mainPanel(leafletOutput("mymap", height = "500"),
          leafletOutput("country")
))
)
)

server <- (function(input, output){
output$mymap <- renderLeaflet(input$country)
output$mymap <- renderLeaflet({
mymap = leaflet()
setView(mymap, lng = -16.882374406249937, lat = -1.7206857960062047, zoom = 0)
mymap = addProviderTiles(mymap, provider = "CartoDB.Positron")
mymap = addMarkers(mymap,lng = 101.901875, lat = 35.486703, popup = "China 35,500")
mymap = addMarkers(mymap,lng = -95.712891, lat = 37.090240, popup = "USA 6,267")
mymap = addMarkers(mymap,lng = 108.339537, lat = 14.315424, popup = "Vietnam 2,947")
mymap = addMarkers(mymap,lng = 37.618423, lat = 55.751244, popup = "Russia 3,070")
mymap = addMarkers(mymap,lng = -46.625290, lat = -23.533773, popup = "Brazil 3,020")}
})
shinyApp(ui, server)

库（闪亮）
图书馆（单张）
ui在您的下拉选择和代码中的传单映射之间没有反应环境。签入以下代码以创建反应式传单图

library(shiny)
library(leaflet)
df <- read.csv("leaflet.csv")
ui <- (fluidPage(
  titlePanel(title = "Pig breeding countries in 2000 - Top 5"),
  sidebarLayout(
    sidebarPanel( uiOutput("countrynames")
    ),
    mainPanel(leafletOutput("mymap", height = "500")
    ))
)
)

server <- function(input, output){
  output$countrynames <- renderUI({
  selectInput(inputId = "country", label = "Select a country to view it's values (you can choose more than one):",
              c(as.character(df$country)))
  })
  map_data <- reactive({
    data <- data.frame(df[df$country == input$country,])
    data$popup <- paste0(data$country, " ", data$number)
    return(data)
  })
  output$mymap <- renderLeaflet({
    leaflet(data = map_data()) %>%
      # setView( lng = -16.882374406249937, lat = -1.7206857960062047, zoom = 0) %>%
      addProviderTiles( provider = "CartoDB.Positron") %>%
      addMarkers(lng = ~lng, lat = ~lat, popup = ~popup)
      # addCircles(lng = ~lng, lat = ~lat, popup = ~popup)
  })
  }
  shinyApp(ui, server)

非常感谢你！我已经挠了好几个小时了！我现在在尝试运行代码时遇到一个错误：“closure”类型的对象不可子集-这与数据帧有关吗？您尝试过代码中的任何修改吗？如果是这样，你能发布修改细节吗？请忽略我最后的评论…对不起！！！我愚蠢的错误我认为csv文件和我的app.R文件在同一个文件夹中，显然不是因为我得到了错误。谢谢你为我整理这个，看起来比我能创造的任何东西都好。。。再次感谢：）很高兴你觉得它有用。
structure(list(lng = c(101.901875, -95.712891, 108.339537, 37.618423
), lat = c(35.486703, 37.09024, 14.315424, 55.751244), country = structure(c(1L, 
3L, 4L, 2L), .Label = c("China", "Russia", "USA", "Vietnam"), class = "factor"), 
    number = c(35500L, 6267L, 2947L, 3070L)), .Names = c("lng", 
"lat", "country", "number"), class = "data.frame", row.names = c(NA, 
-4L))