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

Question

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

考虑以下，

d - 数据框（有一个名为“测试”的列）

菜单 -selectizeInput下拉菜单

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

这并没有做我真正需要的。有什么想法吗？

Answer 1

它应该工作。

用户界面

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())

})