如何在Shiny中点击按钮时动态更新downloadHandler的文件路径？

问题根源 #

你使用的report_name是普通变量，Shiny的反应式系统不会追踪它的变化。点击submit按钮后虽然给变量赋了新值，但downloadHandler的content函数属于反应式上下文，它只会读取变量初始化时的blank值，无法感知到后续的修改。

解决方案 #

改用Shiny的响应式变量（reactiveVal）存储文件名，这样变量更新时，所有依赖它的反应式组件都会自动获取最新值。

修改后的代码示例 #

ui.R 保持不变 #

actionButton('submit', 'Submit'),
downloadButton('download_report', 'Download')

server.R 修改版 #

report_dir <- 'out/'
# 用reactiveVal创建响应式变量，初始值为'blank'
report_name <- reactiveVal('blank')

# 监听submit按钮点击事件，更新响应式变量
observeEvent(input$submit, {
  # 这里可以替换成随机生成的文件名，比如：
  # random_name <- paste0('report_', sample(c(letters, 0:9), 6, replace = TRUE), collapse = '')
  # report_name(random_name)
  report_name('new_name')
})

output$download_report <- downloadHandler(
  filename = function() {
    paste0('report_', Sys.Date(), '.pdf')
  },
  content = function(file) {
    # 调用响应式变量获取最新值
    current_name <- report_name()
    print(current_name) # 点击submit后会输出'new_name'
    file.copy(paste0(report_dir, current_name, '.pdf'), file)
  }
)

额外说明 #

如果需要生成随机文件名，只需在observeEvent中将'new_name'替换为随机字符串逻辑即可，比如：

random_name <- paste0('report_', sample(c(letters, 0:9), 6, replace = TRUE), collapse = '')
report_name(random_name)

这样每次点击submit都会生成唯一的随机文件名，downloadHandler也能正确获取到最新的文件路径。

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