在R Shiny中，如何为一系列链接的矩阵输入建立反应链？

library(shiny)
library(shinyMatrix)

ui <- fluidPage(
  matrixInput(
    inputId = "matrix",
    label = "Matrix Input",
    value = matrix(0, nrow = 2, ncol = 2, dimnames = list(NULL, c("A", "B")))
  ),
  verbatimTextOutput("output")
)

server <- function(input, output, session) {
  output$output <- renderPrint({
    input$matrix
  })
}

shinyApp(ui, server)

server <- function(input, output, session) {
  matrix_reactive <- reactive({
    input$matrix
  })
  
  observeEvent(matrix_reactive(), {
    # 在这里执行矩阵输入变化后的操作
    # 可以根据需要进行计算、数据处理等操作
    # 更新输出或其他相关的反应式对象
  })
  
  output$output <- renderPrint({
    matrix_reactive()
  })
}

shinyApp(ui, server)