如何在R Shiny中对动态渲染列表子集化并捕获列名

问题背景 #

现有Shiny应用支持动态添加/删除表格，新增表格列头自动按Col 1、Col 2顺序编号，删除表格后剩余列头会自动重排。需要实现：

• 将所有表格的列名捕获到一个向量中
• 掌握如何遍历这个动态表格列表，以及通过列名引用列表中的数据值

实现代码 #

library(shiny)
library(rhandsontable)

data1 <- data.frame(row.names = c("A","B","C","Sum"),"Col 1"=c(1,1,0,2),check.names=FALSE)

ui <- fluidPage(
  br(),
  actionButton("addTbl","Add table"),
  br(),br(),
  tags$div(id = "placeholder",        
           tags$div(
             style = "display: inline-block;", 
             rHandsontableOutput("hottable1")
           )
  ),
  # 新增输出用于展示捕获的列名向量
  verbatimTextOutput("captured_colnames")
)

server <- function(input, output, session) {
  uiTbl <- reactiveValues(div_01_tbl = data1)
  rv <- reactiveValues(
    colnames_vec = character(0) # 用于存储所有表格的列名向量
  )                
  
  observeEvent(input$hottable1, {uiTbl$div_01_tbl <- hot_to_r(input$hottable1)})
  
  observe({
    divID <- paste0("div_", sprintf("%02d", input$addTbl+1))
    dtID <- paste0(divID, "_DT")
    btnID <- paste0(divID, "_rmv")
    uiTbl[[paste0(divID,"_tbl")]] <- data1 # 初始化新表格数据
    
    insertUI(
      selector = "#placeholder",
      ui = tags$div(
        id = divID,
        style = "display:inline-block; margin-right: 20px;",
        rHandsontableOutput(dtID), 
        actionButton(btnID, "Delete", class = "pull-left btn btn-danger"),
      )
    )
    
    output[[dtID]] <- renderRHandsontable({
      req(uiTbl[[paste0(divID,"_tbl")]])
      rhandsontable(uiTbl[[paste0(divID,"_tbl")]], useTypes = TRUE)
    })
    
    observeEvent(input[[dtID]], {uiTbl[[paste0(divID,"_tbl")]] <- hot_to_r(input[[dtID]])})
    
    observeEvent(input[[btnID]],{
      removeUI(selector = paste0("#", divID))
      rv[[divID]] <- NULL
      uiTbl[[paste0(divID,"_tbl")]] <- NULL
    },
    ignoreInit = TRUE,
    once = TRUE
    )
  })
  
  observe({
    tables_list <- reactiveValuesToList(uiTbl)
    tables_list <- tables_list[order(names(tables_list))]
    table_lengths <- lengths(tables_list)
    cumsum_table_lengths <- cumsum(table_lengths)[table_lengths != 0L]
    
    # 更新列名
    for(i in seq_along(cumsum_table_lengths)){
      names(uiTbl[[names(cumsum_table_lengths[i])]]) <- paste("Col", cumsum_table_lengths[i])
    }
    
    # --- 关键：捕获列名到向量 ---
    # 遍历每个数据框，提取列名并转换为向量
    rv$colnames_vec <- unlist(lapply(tables_list, function(df) colnames(df)))
    
    # --- 遍历动态列表示例 ---
    # 遍历每个表格，输出表格名称和对应数据
    for(tbl_name in names(tables_list)){
      current_df <- tables_list[[tbl_name]]
      current_col <- colnames(current_df)
      # 示例：通过列名引用数据（比如获取Sum行的值）
      sum_value <- current_df["Sum", current_col]
      message(sprintf("表格%s的%s列Sum值为：%s", tbl_name, current_col, sum_value))
    }
    
    print(tables_list)
  })
  
  # 输出捕获到的列名向量
  output$captured_colnames <- renderPrint({
    cat("所有表格的列名向量：\n")
    print(rv$colnames_vec)
  })
}

shinyApp(ui, server)

关键说明 #

1. 捕获列名向量

   • 使用lapply(tables_list, function(df) colnames(df))遍历每个表格数据框，提取列名
   • 用unlist()将列表转换为向量，存储到rv$colnames_vec中，可随时调用展示或后续处理

2. 遍历动态列表

   • 通过for(tbl_name in names(tables_list))遍历列表的每个元素名称
   • 用tables_list[[tbl_name]]获取对应的表格数据框，进行后续操作

3. 通过列名引用值

   • 获取数据框的列名后，使用数据框[行名, 列名]或数据框$列名的方式引用具体值
   • 示例中获取了每个表格Sum行对应列的值，可根据需求扩展其他操作

内容的提问来源于stack exchange，提问作者Village.Idyot