在Shiny应用中调用getwd()无法获取用户工作目录的问题咨询

你碰到的这个情况其实是Shiny的默认设计导致的——当Shiny应用启动时，它会自动把工作目录切换到应用脚本所在的文件夹，所以getwd()返回的永远是应用的存放路径，而不是你在R控制台里设置的那个目录。

下面给你两种实用的解决方案，根据你的使用场景选就行：

方案1：让用户手动选择目标目录 #

这是最安全也最通用的方法。因为Web应用出于安全限制，没办法直接访问用户本地的文件系统路径，必须让用户主动授权选择。我们可以用shinyFiles包的shinyDirButton组件来实现：

首先安装并加载需要的包：

install.packages("shinyFiles")
library(shiny)
library(shinyFiles)

然后修改你的应用代码：

ui <- fluidPage(
  shinyDirButton("choose_dir", "选择工作目录", "请挑选你的目标工作目录"),
  verbatimTextOutput("selected_wd")
)

server <- function(input, output, session) {
  # 获取系统可用的存储卷
  volumes <- getVolumes()
  # 触发目录选择对话框
  shinyDirChoose(input, "choose_dir", roots = volumes, session = session)
  
  output$selected_wd <- renderText({
    if (!is.null(input$choose_dir)) {
      # 解析用户选择的目录路径
      parseDirPath(volumes, input$choose_dir)
    } else {
      "请选择一个工作目录"
    }
  })
}

shinyApp(ui, server)

这个方法让用户自主选择想要的工作目录，完全避开了路径不一致的问题，不管是本地用还是部署到服务器都适用。

方案2：把控制台的工作目录传递给Shiny应用 #

如果你只是自己在本地R会话里运行这个应用，也可以在启动应用前，把当前控制台的工作目录存成变量，再传到应用里：

# 先在控制台设置好你的目标工作目录
setwd("~/Documents")

# 把当前工作目录存成变量
current_user_wd <- getwd()

ui <- fluidPage(
  verbatimTextOutput("wd")
)

server <- function(input, output) {
  output$wd <- renderText(current_user_wd)
}

shinyApp(ui, server)

不过要注意，这个方法只适合你本地自己用的场景。如果以后要把应用部署到服务器（比如Shiny Server、Posit Connect），这个方法就没用了——服务器的工作目录和你本地的完全不搭边。

最后再提醒一句：别再依赖getwd()在Shiny里拿用户的自定义工作目录啦，这是Shiny为了保证应用可移植性特意设计的，不管应用放在哪，它都能找到自己的依赖文件。

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