在R Shiny中如何为输入矩阵自动生成连续列标题？

要实现添加/删除列后自动生成连续的数字列标题，我们可以通过监听矩阵的变化动态更新列名。下面是修改后的完整代码，我会一步步拆解关键逻辑：

library(shiny)
library(shinyMatrix)

m <- matrix(runif(2), 1, 2, dimnames = list(c("Sample values"), c(1,2)))

ui <- fluidPage(
  titlePanel("Matrix inputs"),
  sidebarPanel(
    width = 6,
    matrixInput(
      "sample",
      value = m,
      rows = list(extend = FALSE),
      cols = list(extend = TRUE, names = TRUE, editableNames = FALSE, delete = TRUE),
      class = "numeric"
    )
  ),
  mainPanel(
    width = 6,
    plotOutput("scatter")
  )
)

server <- function(input, output, session) {
  # 监听矩阵的任何变化，自动同步列名编号
  observeEvent(input$sample, {
    # 获取当前矩阵的列总数
    total_cols <- ncol(input$sample)
    # 生成从1开始的连续数字列名（转为字符型适配矩阵要求）
    new_col_labels <- as.character(1:total_cols)
    # 拷贝当前矩阵数据，避免直接修改输入对象
    updated_matrix <- input$sample
    # 替换列名
    colnames(updated_matrix) <- new_col_labels
    
    # 更新矩阵输入组件，保留用户输入的数值，仅替换列名
    updateMatrixInput(
      session = session,
      inputId = "sample",
      value = updated_matrix,
      cols = list(extend = TRUE, names = TRUE, editableNames = FALSE, delete = TRUE)
    )
  }, ignoreInit = FALSE) # 确保应用启动时也执行一次列名校验（避免初始状态异常）
  
  output$scatter <- renderPlot({
    plot(1:ncol(input$sample), input$sample, xlab="Nbr of samples", ylab="Sample values" )
  })
}

shinyApp(ui, server)

关键逻辑说明 #

• 监听矩阵变化：通过observeEvent(input$sample, ...)捕捉所有矩阵操作（添加列、删除列、修改单元格值），确保任何操作后都能触发列名更新。
• 动态生成列名：根据当前列数自动生成从1开始的连续数字，保证列名始终是有序的序列。
• 无损更新数据：先拷贝用户输入的矩阵数据，仅修改列名后再通过updateMatrixInput更新组件，完全保留用户输入的数值内容。
• 初始化校验：ignoreInit = FALSE确保应用启动时也执行一次列名检查，避免特殊场景下的初始列名异常。

这样处理后，用户添加新列时会自动获得当前最大列数+1的编号；删除列后，剩余列会立即重新从1开始连续编号，完全满足自动生成连续列标题的需求。

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072