Shiny应用中如何将选中列复制到新dataframe并展示？

问题背景 #

我有一批结构各异的CSV文件，每个分析任务对应的列数、列名都不一样。开发的Shiny应用能正常导入初始数据表data（响应式对象），但在能力分析环节，需要通过下拉菜单选择指定列并复制到新数据表data1，后续还要对data1做NA值、日期类数据的过滤处理。

报错情况 #

尝试多种方法后，始终无法在tabPanel Daten中展示选中列的数据，反复出现报错：

Error : object of type 'closure' is not subsettable

中间尝试的调整 #

根据@phil的建议，将原代码中的subset(data,input$cols == input$cols)修改为subset(data(),input$cols == input$cols)后，表格可以正常渲染，但会显示所有列，无法实现仅展示选中列的需求。

最终可行方案 #

使用dplyr的select函数结合all_of()，精准筛选用户选中的列并生成data1，代码如下：

output$data1 <- renderTable({
  req(input$cols)
  select(data(), all_of(input$cols))
})

• req(input$cols)：确保只有当用户选择了列之后才执行表格渲染，避免空输入导致的错误
• all_of(input$cols)：正确解析下拉菜单传入的列名向量，从响应式对象data()中筛选出指定列

内容的提问来源于stack exchange，提问作者DanielW