批处理运行Shiny应用时shiny::reactlogShow报错原因排查

可能的原因 #

• 批处理启动的R进程工作目录异常：手动执行脚本时一般会先切换到脚本所在目录，双击运行bat文件时，START命令启动的R进程默认工作目录可能是系统目录（如C:\Windows\System32），而非脚本存放的文件夹，reactlog写入时没有对应目录的写入权限，导致文件创建失败。
• 启动时序冲突：START命令启动Shiny应用后没有等待应用完全初始化完成，就立刻执行了RSelenium脚本，即使前端操作看起来正常执行，但Shiny的reactlog模块还没完成初始化就收到了stopApp信号，导致日志没有完整写入。
• 高优先级权限限制：你给启动Shiny的R进程加了/HIGH高优先级参数，高优先级进程在Windows下对临时目录的写入权限可能受UAC限制，reactlog默认写入临时目录时权限不足，导致文件创建失败。
• 临时目录自动清理：reactlog默认将日志存放在当前R会话的临时目录中，如果你批处理启动的R进程在reactlogShow执行前就触发了自动退出逻辑，临时目录会被系统自动清理，自然找不到日志文件。

修复方案 #

1. 修改批处理文件Start.bat #

强制指定工作目录，去掉不必要的高优先级参数，增加等待时间确保Shiny完全启动：

:: 切换到当前bat文件所在的目录
cd /d %~dp0
START R -e "source('Start_App.r')"
:: 等待5秒，确保Shiny应用完全启动
timeout /t 5 /nobreak >nul
Rscript Navigate_through_App.r
pause

2. 修改Start_App.r #

显式指定reactlog的持久化路径，避免日志存放在临时目录被清理：

# 安装加载依赖包
if (!require("shiny")) install.packages("shiny")
library(shiny)
if (!require("reactlog")) install.packages("reactlog")
library(reactlog)

# 显式指定reactlog保存路径到当前脚本目录
reactlog_set_path(file.path(getwd(), "shiny_reactlog.log"))
# 启用reactlog
reactlog_enable()
options(shiny.reactlog = TRUE)

# 运行应用，关闭自动弹出浏览器（RSelenium会自动访问）
runApp(getwd(), host = getOption("shiny.host", "127.0.0.1"), port=7777, launch.browser = FALSE)

# 应用关闭后展示响应式图
shiny::reactlogShow()

3. 修改Navigate_through_App.r #

增加延迟确保Shiny完成日志写入后再退出：

# 安装加载依赖包
if (!require("RSelenium")) install.packages("RSelenium")
library(RSelenium)

# 释放端口
system("taskkill /im java.exe /f", intern=FALSE, ignore.stdout=FALSE)

# 启动Selenium访问Shiny应用
rD <- rsDriver(port = 4564L, browser = "firefox")
remDr <- rD[["client"]]
remDr$navigate("http://127.0.0.1:7777")

# 点击关闭按钮停止应用
webElem <- remDr$findElement(using = 'xpath', value = '//*[@id="close"]')
webElem$clickElement()

# 等待2秒确保Shiny完成日志写入
Sys.sleep(2)
# 关闭Selenium资源
remDr$close()
rD$server$stop()

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