nrussell..
5
怎么样的
set_default_wd
text
'local({ setwd("', wd, '") })')
##
if (Sys.info()["sysname"] == "Windows") {
write(
text,
file = paste0(Sys.getenv("HOME"), "\\.Rprofile"),
append = TRUE)
} else {
write(
text,
file = paste0(Sys.getenv("HOME"), "/.Rprofile"),
append = TRUE)
}
}
##
#R> set_default_wd() #set_default_wd("some/file/path")
这应该适用于Windows和类Unix系统,并避免任何权限问题.实际上,用户端的唯一要求是指定一个有效的文件路径,他们应该(希望)能够解决这个问题.
$HOME/.Rprofile在给出格式错误的文件路径等情况下,可以选择覆盖(而不是强制添加行).
set_default_wd
text
'local({ setwd("', wd, '") })')
##
if (Sys.info()["sysname"] == "Windows") {
write(
text,
file = paste0(Sys.getenv("HOME"), "\\.Rprofile"),
append = !overwrite)
} else {
write(
text,
file = paste0(Sys.getenv("HOME"), "/.Rprofile"),
append = !overwrite)
}
}