从一个闪亮的应用程序中调用getwd（）

Question

我正在创建一个需要访问用户工作目录的Shiny应用程序。我假设getwd（）可以在Shiny应用程序中运行，但是这总是指向Shiny应用程序本身的目录。

示例：

从R控制台：

setwd("~/Documents")
getwd()
[1] "/Users/chris.harrison/Documents"

从以下保存在桌面上的Shiny应用程序：

library(shiny)

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

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

shinyApp(ui = ui, server = server)

然后致电：

setwd("~/Documents")
shiny::runApp("~/Desktop/app.R")

输出是：

/Users/chris.harrison/Desktop

有没有办法从应用程序中调用用户的工作目录？

非常感谢，

克里斯