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

Posted 2023-03-24

【中文标题】使用 selectizeInput 进行子集化 - 闪亮的 R

【英文标题】：subsetting using selectizeInput - shiny R

【发布时间】：2017-01-05 20:37:02

【问题描述】：

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

考虑以下，

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

菜单 - selectizeInput 下拉菜单

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

这并不能满足我的实际需要。有什么想法吗？

【问题讨论】：

还是d[d$test %in% c(input$menu), ]

【参考方案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())

)