R Shiny应用传递日期范围为全局变量供外部R Script调用问题求助

问题根因 #

• 外部R脚本找不到变量：你通过system()调用Rscript时会启动独立的新R进程，和Shiny运行的主进程完全隔离，Shiny进程内定义的全局变量无法穿透到新进程，因此脚本找不到StartDate1、EndDate1对象。
• 服务器运行断连：你的API脚本属于耗时任务，直接写在Shiny主线程里会阻塞进程，超过Shiny服务器默认的空闲超时阈值就会主动断开连接；本地运行没有严格的超时限制所以可以正常执行。

修复方案 #

1. 修复外部脚本变量找不到问题 #

不用全局变量传递参数，改为命令行参数传递，修改两处代码即可：

修改Shiny服务端调用逻辑

把原来的system("Rscript src/Date.R")替换为带参数的调用，同时移除无用的全局变量赋值逻辑，避免多用户场景下数据冲突：

server <- function(input, output) {
  observeEvent(input$bttn3, {
    if(input$password == PASSWORD) {
      html("bttn1_stat3", paste0("Last Run: ", date()))
      # 直接在触发按钮时取当前选中的日期，不要提前存全局变量
      StartDate1 <- format(as.Date(input$daterange[1],"%B %d %Y"), "%m-%d-%Y")
      EndDate1 <-  format(as.Date(input$daterange[2],"%B %d %Y"), "%m-%d-%Y")
      # 把日期作为参数传递给外部脚本，shQuote避免特殊字符问题
      setwd("/apps/workplace/Projects/")
      system(paste0("Rscript src/Date.R ", shQuote(StartDate1), " ", shQuote(EndDate1)))
      
      html("bttn3_stat", "Data Download Completed!")
    } else {
      html("bttn3_stat", "Incorrect Password, please try again!")
    }
  })
}

修改被调用的Date.R脚本

新增命令行参数接收逻辑：

# 顶部新增参数接收代码
args <- commandArgs(trailingOnly = TRUE)
StartDate1 <- args[1]
EndDate1 <- args[2]

x <<- list(
  reportId = 250 ,
  startDate = StartDate1 ,
  endDate = EndDate1)

2. 修复服务器部署断连问题 #

根据你的部署场景选对应方案：

• 如果用开源Shiny Server部署，修改配置文件/etc/shiny-server/shiny-server.conf，在对应应用的配置块下添加app_idle_timeout 3600;，把超时时间设为1小时（根据你的脚本运行时长调整）
• 脚本运行时长超过5分钟的话，用promises+future包把耗时任务放到后台异步执行，不阻塞Shiny主线程：先加载library(promises)、library(future)，服务端开头加plan(multisession)，把脚本调用逻辑包裹在future_promise()里
• 前端加心跳保活逻辑，用shinyjs每隔30秒给服务端发一个空请求，避免被判定为空闲断开

额外注意事项 #

不要在Shiny的服务端用<<-赋值全局变量，多用户同时访问时会出现参数覆盖的问题，所有用户取到的日期都会是最后一个用户设置的值。

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