闪亮的R-表格输出取决于下拉菜单的选择

我试图添加一个下拉菜单来操作我的数据帧

比如说,

假设我的df有列-a1 a2 a3 b1 c1 c2 c3

我想添加一个下拉菜单，其中的选项=list（“All”、“a”、“b”、“c”），它可以过滤表中的所有列，包括以a开头或以b开头的列，以此类推

我不知道该怎么办。可以创建新的df，当选择某个选项时可以调用该df，也可以根据该选项操纵df

以下是一些示例代码（不是我的真实代码）：

库（闪亮）
shinyUI（fluidPage）(
标题板（“x”），
侧边栏布局(
侧栏面板(
选择输入（inputId=“x”，
选项=列表（“全部”、“a”、“b”、“c”）
),
主面板(
dataTableOutput（'x'）
)
)
))
#dfa您可以使用反应式：

shinyServer(function(input, output) {

    reactive_df <- reactive({
      if(input$x=="All")
        return df
      else
        return(select(df, starts_with(input$x)))
    }

    output$x <- renderDataTable(reactive_df())

}

shinyServer（功能（输入、输出）{
感谢您的快速回复！非常有帮助。
shinyServer(function(input, output) {

    reactive_df <- reactive({
      if(input$x=="All")
        return df
      else
        return(select(df, starts_with(input$x)))
    }

    output$x <- renderDataTable(reactive_df())

}