Shiny Excel导入模块无法将数据及文件名传回全局reactiveValues求助

核心问题原因 #

你遇到的问题根源是模块内直接对传入的data_rv和name_rv赋值时，只是创建了模块内部的局部变量，并没有真正修改全局reactiveValues对象rv的属性。R的函数参数传递是按值传递，直接赋值data_rv <- ...不会影响外部的rv$data_test1或rv$filename_test1。

修复方案 #

我们需要修改模块的参数设计，让模块能够直接操作全局的reactiveValues对象，或者明确指定要修改的属性名，通过$或[[语法更新属性值，而不是重新赋值变量。

修正后的完整代码 #

library(shiny)
library(shinyjs)
library(readr)
library(readxl)
library(stringr)

excelInput <- function(id) {
  ns <- NS(id)
  tagList(
    div(style = "margin-bottom: -15px;", 
        fileInput(ns("excel"), label = ".csv, or .xlsx", 
                  accept = c(".csv", ".xlsx"), multiple = FALSE)),
    uiOutput(ns("sheetUI")),
    uiOutput(ns("readUI"))
  )
}

excelInputServer <- function(id, needRead, rv, data_attr, name_attr = NULL) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    
    ext <- reactive({
      req(input$excel)
      tools::file_ext(input$excel$name)
    })
    
    output$sheetUI <- renderUI({
      req(ext() == "xlsx")
      selectInput(ns("sheet"), "Sheet", 
                  choices = readxl::excel_sheets(input$excel$datapath))
    })
    
    # 定义读取数据的通用函数
    read_data <- function() {
      req(input$excel)
      if (ext() == "csv") {
        data <- readr::read_csv(input$excel$datapath)
        name <- stringr::str_extract(input$excel$name, ".*(?=\\.)")
      } else if (ext() == "xlsx") {
        req(input$sheet)
        data <- readxl::read_xlsx(input$excel$datapath, input$sheet)
        name <- paste0(stringr::str_extract(input$excel$name, ".*(?=\\.)"), 
                       "_#", input$sheet, "#")
      }
      # 更新全局rv对象的属性
      rv[[data_attr]] <- data
      if (!is.null(name_attr)) {
        rv[[name_attr]] <- name
      }
    }
    
    if (needRead == TRUE) {
      output$readUI <- renderUI({
        actionButton(ns("read"), "Read")
      })
      
      observe({
        shinyjs::toggleState("read", condition = !is.null(input$excel))
      })
      
      observeEvent(input$read, {
        read_data()
      })
    } else {
      observe({
        req(ext())
        read_data()
      })
    }
  })
}

shinyApp(
  ui <- fluidPage(
    shinyjs::useShinyjs(),
    fluidRow(
      column(width = 4, excelInput("needRead")),
      column(width = 8, verbatimTextOutput("print1"))
    ),
    fluidRow(
      column(width = 4, excelInput("noRead")),
      column(width = 8, verbatimTextOutput("print2"))
    )
  ),
  server <- function(input, output, session) {
    rv <- reactiveValues()
    
    # 传递rv对象和要修改的属性名
    excelInputServer("needRead", TRUE, rv, "data_test1", "filename_test1")
    output$print1 <- renderPrint({
      print(rv$filename_test1)
      print(rv$data_test1)
    })
    
    excelInputServer("noRead", FALSE, rv, "data_test2")
    output$print2 <- renderPrint({
      print(rv$data_test2)
    })
  }
)

关键改动说明 #

1. 模块参数调整：将原来的data_rv和name_rv改为接收全局rv对象，以及对应的属性名data_attr和name_attr，这样模块可以直接通过rv[[data_attr]]修改全局对象的属性。
2. 通用读取函数：提取read_data()函数，避免重复代码，同时统一处理数据读取和全局对象更新逻辑。
3. 增加req()校验：在ext()和读取逻辑中添加req()，确保依赖的输入（如input$excel、input$sheet）存在时才执行，避免空值错误。
4. 修正主app调用：调用模块时传递rv对象和属性名字符串，比如"data_test1"，而不是直接传rv$data_test1。

内容的提问来源于stack exchange，提问作者toxin