我希望在我的脚本开头有一个简单的代码来将工作目录设置为我的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/
。是否有一个可以全局运作的功能?
答案 0 :(得分:0)
这是一个hacky解决方法,它远非全球性的解决方案:
setdir <- function(){
wandir <- paste(path.expand("~"), "/Dropbox/_R", sep = "")
wandir <- sub("/Documents", "", wandir)
curdir <- getwd()
if(curdir!=wandir){
setwd(wandir)
}
}
setdir()