R Shiny downloadButton模块无法更新新数据问题求助

你遇到的核心问题是模块接收的是静态值而非响应式对象。在调用dwnldButtonServer时，你直接传递了labels$title1和plot1_data()——这两个会在server启动时立即求值，之后控件变化时不会自动更新传递给模块的参数，导致downloadHandler一直用初始化时的旧值。

需要让模块接收响应式对象，而非直接接收值，然后在downloadHandler内部调用响应式对象获取最新数据：

1. 修改模块Server函数 #

把参数改成接收响应式对象，然后在filename和content里调用这些对象（加括号）：

dwnldButtonServer <- function(id, file_name, graph_df){
  
  moduleServer(
    id,
    function(input, output, session){
      
      output$dwnldBtn <- downloadHandler(
        
        filename = function() {
          # 调用响应式对象获取最新文件名
          paste(file_name(), ".csv", sep = "")
        },
        
        content = function(file) {
          # 调用响应式对象获取最新数据
          write.csv(graph_df(), file, row.names = FALSE)
        }
      )
    }
  )
  
}

2. 修改主Server中模块的调用方式 #

直接传递响应式对象本身，不要加括号（加括号会立即求值变成静态值）；同时用reactive替代reactiveValues生成标题，代码更简洁：

server <- function(input, output){
  
  plot1_data <- reactive({
    mtcars %>% 
      select(input$x_var, input$y_var) %>% 
      rename("x" = input$x_var,
             "y" = input$y_var)
  })
  
  # 用reactive生成动态标题，替代reactiveValues
  plot_title <- reactive({
    paste(input$y_var, "vs", input$x_var)
  })
  
  output$plot <- renderPlot({
    
    ggplot(data = plot1_data(),
           aes(x = x,
               y = y))+
      geom_point()+
      labs(title = plot_title())
    
  })
  
  # 直接传递响应式对象，不要加括号
  dwnldButtonServer(id = "download",
                    file_name = plot_title,
                    graph_df = plot1_data
  )
}

完整修复后代码 #

# Load libraries
library(shiny)
library(shinyWidgets)
library(tidyverse)
library(here)

# Load data
data(mtcars)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      varSelectInput(inputId = "x_var",
                     data = mtcars,
                     label = "Select x var"),
      varSelectInput(inputId = "y_var",
                     data = mtcars,
                     selected = names(mtcars)[2],
                     label = "Select y var")
    ),
    mainPanel(
      plotOutput(outputId = "plot"),
      dwnldButtonUI(id = "download")
    )
  )
)

server <- function(input, output){
  
  plot1_data <- reactive({
    mtcars %>% 
      select(input$x_var, input$y_var) %>% 
      rename("x" = input$x_var,
             "y" = input$y_var)
  })
  
  plot_title <- reactive({
    paste(input$y_var, "vs", input$x_var)
  })
  
  output$plot <- renderPlot({
    ggplot(data = plot1_data(),
           aes(x = x, y = y)) +
      geom_point() +
      labs(title = plot_title())
  })
  
  dwnldButtonServer(id = "download",
                    file_name = plot_title,
                    graph_df = plot1_data
  )
}

### Module ###
dwnldButtonUI <- function(id){
  ns <- NS(id)
  tagList(
    downloadButton(outputId = ns("dwnldBtn"),
                   label = "下载数据")
  )
}

dwnldButtonServer <- function(id, file_name, graph_df){
  moduleServer(
    id,
    function(input, output, session){
      output$dwnldBtn <- downloadHandler(
        filename = function() {
          paste(file_name(), ".csv", sep = "")
        },
        content = function(file) {
          write.csv(graph_df(), file, row.names = FALSE)
        }
      )
    }
  )
}

shinyApp(ui, server)

• 响应式对象传递时要传对象本身（比如plot_title），不要传plot_title()（这会变成静态值）
• downloadHandler的filename和content函数会在每次点击下载时重新执行，此时调用响应式对象就能获取最新的控件值和数据
• 用reactive替代reactiveValues生成标题，更符合Shiny的响应式逻辑，代码也更简洁

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