checkboxGroupInput в Shiny (основа c)

Question

новичок в R. У меня есть таблица моя таблица данных

Я хочу, чтобы выходная таблица была списком генов, содержащих термины из контрольного списка. Например, если я проверяю «ADRF» и «PDRF», я должен видеть только ген APOE (и другие, которые являются общими). Я чувствую, что это просто, но я просто не могу понять, 0.o Вы можете видеть, что у меня есть несколько «попыток» в разделе «renderTable», но ни одна из них не работает должным образом.

    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)

Answer 1

data[data$Present_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)