始终将工作目录设置的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

这里是一个哈克的解决办法，这是远从全球的一个：

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