问题描述
有没有办法在不同级别使用R函数setwd()
返回目录?
例如
> getwd()
/home/folder1/folder2/
我想在不输入setwd("../..")
的情况下只需一击就到家。写n次“../”很繁琐
解决方法
一种方法是动态创建路径 "../.."
。
setwd_n_levels <- function(n) {
setwd(paste0(rep('..',n),collapse = '/'))
}
setwd_n_levels(2)
getwd()
,
我们可以使用strrep
setwd_n_levels <- function(n) {
setwd(trimws(strrep('../',whitespace = '/'))
}