Shiny checkboxGroupInput（基本）

新来的R。我有一张桌子

我希望输出表是包含清单中术语的基因列表。例如，如果我检查ADRF和PDRF，我应该只看到APOE基因和其他共享的基因。我觉得这很简单，但我就是想不出来。你可以看到，我在可渲染部分进行了多次尝试，但似乎都没有正常工作

    ui = fluidPage (
    titlePanel("test title"),
    sidebarLayout(
    sidebarPanel( 
      checkboxGroupInput ( inputId = "data1", label = "tester", 
                           c("AD Risk Factors"= "ADRF",
                             "PD Risk Factors" = "PDRF", 
                             "MSA Risk Factor" = "MSARF", 
                             "DLB Risk Factors" = "DLBRF"))),


  mainPanel( tableOutput("coolplot"))
)
)

server = function(input,output) { 

          output$coolplot = renderTable({

data[data$Present_In == input$data1,]             
#filter(data, Present_In == input$data1) drop=false)
#grepl("input$data1", data$Present_In)
#filter(data, grepl('input$data1', Present_In))

          } ) }

shinyApp(ui = ui,server = server)

数据[data$Present\u In%In%input$data1，]可能就是您所需要的

下面是使用iris数据集的一个简单示例；因为我没有你的那个：

library(shiny)

ui = fluidPage (

    checkboxGroupInput(inputId = "checkboxgroup", label = "Species", choices = unique(iris$Species)),

    tableOutput("table_1")

)

server = function(input,output) { 

    output$table_1 = renderTable({

        iris[iris$Species %in% input$checkboxgroup, ]             

    }) 

}

shinyApp(ui = ui, server = server)