Question

R的新手。我有一张桌子 my data table

我希望输出表是包含清单中术语的基因的列表。例如，如果我检查“ 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,]可能是您需要的。

以下是使用虹膜数据集的最小示例；因为我没有你的：

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)

闪亮（基本）中的checkboxGroupInput

1 个答案: