在 R 中使用 setwd() 向后退 N 个级别

2024-05-20 • 问答

有没有办法在不同级别使用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 = '/'))
  }