使 selectizeInput react 以显示隐藏 Leaflet Shiny R 上的标记

我正在绘制墨西哥瓦哈卡街头美食 map ，尽管我遇到了一些麻烦.我试图在Shiny中生成一个传单图，并了解Shiny的UI方面，尽管服务器方面没有那么多.我知道我必须将observe()或reactive()添加到服务器端以产生所需的结果，但我似乎无法使其工作.我在传单中加入了addlayercontrol()，因为这是需要的效果(根据所选内容隐藏和显示标记)，尽管我希望SelectizeInput控制层.下面是我的代码，我包括了数据集的一小部分，以及我在服务器端try 的一些注释掉的代码.如有任何帮助或建议，将不胜感激.

library(leaflet)
library(shiny)
library(shinydashboard)
library(dplyr)

#Data Sample

long <- c(-96.72363, -96.72880, -96.72700)
lat <- c(17.06167, 17.06200, 17.06170 )
name <- c("jim", "grant", "pablo")
food <- c("tacos", "burger", "elote")


df <- data.frame(long, lat, name, food)

#subsets

palette<- colorFactor(palette = c("blue", "green", "black"),
                      domain = df$food)
tacos <- dplyr::filter(df, grepl("tacos", food))

burger <- dplyr::filter(df, grepl("burger", food))

elote <- dplyr::filter(df, grepl("elote", food))


#ui 


ui <-fluidPage(
  titlePanel(title = "Street Food Oaxaca"),
  sidebarLayout(
    sidebarPanel(
      selectizeInput("food","Select a Type:",
                  choices = unique(df$food),
                  selected = ,
                  multiple = TRUE)),
    mainPanel(h3("Map"), leafletOutput("m", width = "800", height = "600"))
  )
)

#server
server <- function(input, output, session){ 
    output$m = renderLeaflet({
    leaflet(data = df) %>%
      setView(lng = -96.725, lat = 17.0618, zoom =14)%>%
      addTiles() %>%
      addCircleMarkers( layerId = tacos,
                          data = tacos,
                          ~long,
                          ~lat,
                          group = 'tacos',
                          popup = ~as.character(name),
                          radius = 2,
                          color =  ~palette(food),
                          fillOpacity = 0.5) %>%
        addCircleMarkers( layerId = burger,
                          data = burger,
                          ~long,
                          ~lat,
                          group = 'burger',
                          popup = ~as.character(name),
                          radius = 2,
                          color =  ~palette(food),
                          fillOpacity = 0.5) %>%
        addCircleMarkers( layerId = elote,
                          data = elote,
                          ~long,
                          ~lat,
                          group = 'elote',
                          popup = ~as.character(name),
                          radius = 2,
                          color =  ~palette(food),
                          fillOpacity = 0.5) %>%
        # addPolygons(data = poly,
        #           ~long,
        #           ~lat,
        #           weight = 3,
        #           color = "red",
        #           group = "Restricted Zone" ,
        #           popup = "Restricted Zone")
      addLayersControl(
        overlayGroups = c("tacos","burger","elote", "Restricted Zone"),
        options = layersControlOptions(collapsed = TRUE)
      )


    })
}    
      
      
      #  observeEvent(
      # if(function(input$food, value ="tacos"))
      #   output$m = renderLeaflet('m')%>%
      #    removeMarker(layerId = m,c('burger', 'elote')))
                               
      #removeMarker(group == C('two', 'three'))

      # data_f <- reactive({
      #   dplyr::filter(df$food == "tacos")
      # })
      # 
      # observeEvent(data_f, {
      # 
      #   leafletProxy("map") %>%
      # 
      #     clearMarkers() }) 
    
         

  


 #Run the application 
shinyApp(ui = ui , server = server)