使用R中的setwd()后退N级

Question

是否有方法通过不同级别使用R函数setwd()返回目录？

例如

> getwd() 
/home/folder1/folder2/

我想在不输入setwd("../..")的情况下只打一枪就到家。写n次"…"是非常乏味的/">

Answer 1

一种方法是动态创建路径"../.."。

setwd_n_levels <- function(n) {
setwd(paste0(rep('..', n), collapse = '/'))
}
setwd_n_levels(2)
getwd()

Answer 2

我们可以使用strrep

setwd_n_levels <- function(n) {
setwd(trimws(strrep('../', n), whitespace = '/'))
}