如何在R Shiny中实现行列数可动态调整的matrixInput？

原代码存在的问题 #

• 开头冗余的textInput未被使用，可直接删除
• numericInput初始值不能设为空字符串，需指定有效数值（否则会触发类型错误）
• 不能在server函数顶层直接调用input$rows/input$columns，input是反应式对象，必须在反应式上下文（如observe、reactive）中访问
• matrixInput的初始值无法直接引用server中的变量，需提前设置默认矩阵或通过动态更新实现

修正后的完整代码 #

library("shiny")
library("shinyMatrix")

ui <- fluidPage(
  titlePanel("shinyMatrix: 动态调整行列数"),
  sidebarPanel(
    width = 6,
    numericInput("rows", "行数:", value = 2, min = 1),
    numericInput("columns", "列数:", value = 2, min = 1)
  ),
  
  mainPanel(
    matrixInput("matrix1",
                value = matrix(0, nrow = 2, ncol = 2),
                rows = list(
                  names = TRUE,
                  editableNames = TRUE),
                cols = list(
                  names = TRUE,
                  editableNames = TRUE
                ),
                class = "numeric"),
    width = 6
  )
)

server <- function(input, output, session) {
  # 监听行列数变化，动态更新矩阵
  observeEvent(c(input$rows, input$columns), {
    # 保留用户已输入的矩阵数据，仅调整行列数（不足补0，多余截断）
    current_mat <- input$matrix1
    new_rows <- input$rows
    new_cols <- input$columns
    
    new_mat <- matrix(0, nrow = new_rows, ncol = new_cols)
    # 取现有矩阵和新矩阵的最小行列数，保留已有数据
    fill_rows <- min(nrow(current_mat), new_rows)
    fill_cols <- min(ncol(current_mat), new_cols)
    new_mat[1:fill_rows, 1:fill_cols] <- current_mat[1:fill_rows, 1:fill_cols]
    
    # 更新matrixInput组件
    updateMatrixInput(session, "matrix1", value = new_mat)
  })
}

shinyApp(ui, server)

关键实现说明 #

• 给numericInput设置默认值2和最小值1，确保输入始终为有效正整数
• 使用observeEvent监听行列数输入的变化，触发矩阵更新逻辑
• 更新时保留用户已输入的内容，仅对新增的行列填充0，提升交互体验
• 通过updateMatrixInput函数动态修改matrixInput的数值，实现行列数的实时调整

内容的提问来源于stack exchange，提问作者honj - t