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

Question

有没有办法使用setwd()不同级别的R函数返回目录？

例如

> 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 = '/'))
  }