用户定义的过滤器，基于从Rshiny多个SelelctInput读取的输入

Question

我有一个要使用Rshiny应用程序显示的数据框。因此，我想在数据框顶部提供一个下拉过滤器，以便从多个SelectInput中选择任何内容，然后相应地更新数据框。 假设我的数据框包含：

category: c("jeans","shirt","pants","denim")
nsv: c("200,400,500,120)
df= data.frame(category, nsv)

我想根据区域过滤此数据框，并且我不想在数据框中显示区域列。我只想根据该区域过滤数据帧。我给出了如下的selectinput语句：

selectInput("zones","Choose zone:",c("BLR"="BLR", "NORTH"="NORTH", 
    "EAST"="EAST","MUMBAI"="MUMBAI","GUJRAT"="GUJRAT", 
    "PUNE"="PUNE","HYD"="HYD"), multiple = TRUE)

zones=input$zones
zonefilter= filter(bind, Zone == zones) // obviously throws an error.  

output$mytable1 <- renderDataTable(
    DT::datatable(zonefilter, rownames=FALSE,extensions = 
    c('FixedColumns',"FixedHeader"), filter="top",
    options = list(fixedHeader=TRUE,
    fixedColumns = list(leftColumns = 1, rightColumns = 0))) )

但是我需要知道它的存储位置和存储方式，以提供正确的过滤器语句。