使用selectizeInput进行子集化 - 闪亮的R

Question

我有一个selectizeInput的下拉菜单 - 使用它我需要对我的数据帧进行子集化以进一步分析。

考虑以下内容，

d - dataframe（有一个名为'test'的列）

菜单 - selectizeInput下拉列表

d[d$test %in% input$menu, ]

这不符合我的实际需要。有什么想法吗？

Answer 1

它应该有用。

UI

library(shiny)

shinyUI(fluidPage(

  sidebarLayout(
    sidebarPanel(
      selectizeInput("in", "in", choices = as.list(letters[1:10]), multiple = TRUE)
    ),

    mainPanel(
      verbatimTextOutput("view")
    )
  )
))

服务器

library(shiny)

d <- data.frame(test = letters[1:10], value = 1:10)

shinyServer(function(input, output) {

  view <- reactive({d[d$test %in% input$"in", ]})

  output$view <- renderPrint(view())

})