在Shiny Server（Ubuntu）上加载工作区到Shiny应用的正确方法

核心问题分析 #

你遇到的问题主要源于两个关键点：

1. Shiny Server运行应用时的工作目录与本地RStudio环境不同，getwd()指向的路径并非应用所在目录，导致无法找到workspace.RData。
2. 即使设置了文件权限，Linux目录的执行权限缺失或用户身份不匹配，也会导致Shiny进程无法访问文件。

具体解决步骤 #

1. 使用绝对路径加载工作区

放弃依赖getwd()，直接指定workspace.RData的绝对路径，这是最可靠的方式。假设你的应用部署在/srv/shiny-server/myapp/目录下，修改加载代码如下：

library(shiny)

# 替换为你的应用实际绝对路径
app_root <- "/srv/shiny-server/myapp"
# 加载工作区
load(file.path(app_root, "workspace.RData"))

# 后续UI和Server代码保持不变
ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(sliderInput("in_slider", label="输入选择", min=0, max=1, step=1, value=0)),
        mainPanel(plotOutput("out_plot"))
    )
)

server <- function(session, input, output) {
    output$out_plot <- renderPlot({
        plot(if(input$in_slider == 0){x}else{y})
    })
}

shinyApp(ui=ui, server=server)

2. 确保Shiny用户拥有完整访问权限

Shiny Server默认以shiny用户身份运行，需要确保该用户能访问应用目录及工作区文件：

# 给应用目录及所有父目录添加执行权限（Linux下进入目录需要执行权限）
sudo chmod -R u+x /srv/shiny-server/myapp
# 将工作区文件的所有权转移给shiny用户
sudo chown shiny:shiny /srv/shiny-server/myapp/workspace.RData
# 给shiny用户添加读写权限
sudo chmod u+rw /srv/shiny-server/myapp/workspace.RData

3. 避免环境隔离导致的变量访问问题

部分Shiny Server配置会在独立环境中运行server函数，若全局变量仍无法访问，可将工作区加载逻辑移至server函数内（适合数据量较小的场景），或显式指定加载到全局环境：

server <- function(session, input, output) {
    # 在server内加载工作区，确保变量可访问
    app_root <- "/srv/shiny-server/myapp"
    load(file.path(app_root, "workspace.RData"), envir = .GlobalEnv)
    
    output$out_plot <- renderPlot({
        plot(if(input$in_slider == 0){x}else{y})
    })
}

额外排查建议 #

• 查看Shiny Server日志（路径通常为/var/log/shiny-server/），根据具体错误信息（如“文件不存在”或“权限拒绝”）精准定位问题。
• 若工作区文件需后台实时更新，可使用reactivePoll定时重新加载文件，确保应用获取最新数据。

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