如何将R Shiny可扩展响应式输入矩阵捕获为响应式对象并渲染？

步骤说明 #

1. 捕获动态输入为响应式对象：针对matInputFlex生成的两个动态矩阵，通过reactive()创建响应式数据框，确保数据单向从基础矩阵流向可调整矩阵，不反向回流。
2. 主面板渲染表格预览：将响应式数据框转为表格展示，直观呈现用户调整的时间X与变量Y对应关系。
3. 添加下载功能：合并两个变量的调整数据，生成可下载的CSV文件，满足后续数据复用需求。

完整代码 #

library(shiny)
library(shinyMatrix)
library(dplyr)

matInputBase <- function(name){
  matrixInput(name, 
              value = matrix(c(0.2), 2, 1, dimnames = list(c("Var_1","Var_2"),NULL)),
              rows = list(extend = FALSE,  names = TRUE),
              cols = list(extend = FALSE, names = FALSE, editableNames = FALSE),
              class = "numeric")
}

matInputFlex <- function(name, x, y) {
  matrixInput(name,
              value = matrix(c(x, y), 1, 2, dimnames = list(NULL, c("X", "Y"))),
              rows = list(extend = TRUE, names = FALSE),
              cols = list(extend = TRUE, delta = 0, names = TRUE, editableNames = FALSE), 
              class = "numeric")
}

ui <- fluidPage(
  sidebarPanel(
    sliderInput('periods', '时间窗口 (W):', min = 1, max = 20, value = 20),
    h5(strong("时间窗口内的变量值 (Y):")),
    matInputBase("base_input"),
    actionButton('resetVectorBtn', '重置'),
    uiOutput("Vectors")
  ), 
  mainPanel(
    h5("可调整矩阵预览"),
    tabsetPanel(
      tabPanel("Var_1 调整数据", tableOutput("var1_table")),
      tabPanel("Var_2 调整数据", tableOutput("var2_table"))
    ),
    br(),
    downloadButton("download_adjustments", "下载调整数据")
  ) 
) 

server <- function(input, output, session) {
  periods <- reactive(input$periods)
  base_input <- reactive(input$base_input)

  # 渲染可调整矩阵UI
  output$Vectors <- renderUI({
    input$resetVectorBtn # 点击重置按钮时重新生成UI
    tagList(
      h5(strong("调整 Var_1 (Y) 的时间点 X:")),
      matInputFlex("var_1_vector_input", input$periods, input$base_input[1, 1]),
      h5(strong("调整 Var_2 (Y) 的时间点 X:")),
      matInputFlex("var_2_vector_input", input$periods, input$base_input[2, 1])
    )
  })
  
  # 捕获Var_1的调整数据并转为数据框
  var1_adjustments <- reactive({
    req(input$var_1_vector_input) # 确保输入存在再处理
    as.data.frame(input$var_1_vector_input) |>
      setNames(c("时间X", "变量Y")) |>
      mutate(变量名 = "Var_1")
  })
  
  # 捕获Var_2的调整数据并转为数据框
  var2_adjustments <- reactive({
    req(input$var_2_vector_input)
    as.data.frame(input$var_2_vector_input) |>
      setNames(c("时间X", "变量Y")) |>
      mutate(变量名 = "Var_2")
  })
  
  # 合并所有调整数据（用于下载）
  all_adjustments <- reactive({
    rbind(var1_adjustments(), var2_adjustments())
  })
  
  # 渲染Var_1调整表格
  output$var1_table <- renderTable({
    var1_adjustments() |> select(-变量名)
  })
  
  # 渲染Var_2调整表格
  output$var2_table <- renderTable({
    var2_adjustments() |> select(-变量名)
  })
  
  # 下载调整数据为CSV
  output$download_adjustments <- downloadHandler(
    filename = function() {
      paste0("变量调整数据_", Sys.Date(), ".csv")
    },
    content = function(file) {
      write.csv(all_adjustments(), file, row.names = FALSE, fileEncoding = "UTF-8")
    }
  )
} 

shinyApp(ui, server)

关键细节说明 #

• 响应式对象的单向流动：var1_adjustments和var2_adjustments仅依赖动态生成的input$var_1_vector_input和input$var_2_vector_input，不会反向修改base_input，符合单向数据流要求。
• 空值处理：使用req()确保输入存在后再转换数据，避免程序报错。
• 下载功能：合并两个变量的调整数据生成CSV，方便后续上传复用（上传功能可通过fileInput读取CSV后，调用updateMatrixInput反填矩阵，需额外实现）。

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