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

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

例如：

从R控制台：

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

从桌面上保存的以下闪亮应用程序：

library(shiny)

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

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

shinyApp(ui = ui, server = server)

输出为：

/Users/chris.harrison/Desktop

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

非常感谢,

---

Chris

您实际上是在从应用程序中调用工作目录。由于您的应用程序位于桌面上，而不是文档中，所以您的自动工作目录位于桌面上。当然，您需要在应用程序内设置目录（我认为它运行自己的权限），但应用程序将被移植到一个包中。因此，需要某种指定用户本地工作目录的方法来指定用户定义的CSV列表。使事情复杂化的是，这将在R Studio服务器上使用，而不是在本地计算机上使用。我认为文件输入小部件可能是解决方案，但它总是默认为用户本地机器上的目录。

/Users/chris.harrison/Desktop