基于Shiny SelectInput选择的小叶输出

Question

我试图根据对selectInput控件所做的选择获取传单输出。到目前为止，这是我尝试过的：

library(shiny)
library(leaflet)

oppData <- read.csv("/cloud/project/OppMapping.csv", header = T, stringsAsFactors = F)
sups <- as.factor(oppData$Supervisor)

ui <- fluidPage(
  titlePanel("TITLE PANEL"),
  sidebarLayout(
    sidebarPanel(
      selectInput("supervisor", "Select", choices = sups)),
    mainPanel(
      leafletOutput("map")
    )
  )
)

server <- function(input, output) {
  filteredData <- reactive({
    thedata <- subset(oppData, Supervisor == input$supervisor)
  })
  output$map <- renderLeaflet({
    leaflet(filteredData()) %>%
      addTiles() %>%
      # addCircleMarkers(popup=filtered_data()$Agent,clusterOptions = markerClusterOptions())
      addCircleMarkers(clusterOptions = markerClusterOptions())
  })
}

shinyApp(ui, server)

请给我个建议！

链接到示例数据：https://drive.google.com/file/d/1SJzXdbl469wqj3y0mbPniXh4t4dFvbRI/view?usp=drivesdk