始终将工作目录设置为任何计算机上的Dropbox文件夹

Question

我希望在我的脚本开头有一个简单的代码来将工作目录设置为我的Dropbox文件夹，无论我在哪台机器上运行我的代码：

setdir <- function(){
  wandir <- paste(path.expand("~"), "/Dropbox/_R", sep = "")
  curdir <- getwd()
  if(curdir!=wandir){
    setwd(wandir)
  }
}
setdir()

path.expand("~")的技巧适用于Linux机器，但它不适用于Windows机器，因为它导致C:/Users/username/Documents而不是C:/Users/username/。是否有一个可以全局运作的功能？

Answer 1

这是一个hacky解决方法，它远非全球性的解决方案：

setdir <- function(){
  wandir <- paste(path.expand("~"), "/Dropbox/_R", sep = "")
  wandir <- sub("/Documents", "", wandir)
  curdir <- getwd()
  if(curdir!=wandir){
    setwd(wandir)
  }
}
setdir()