r - 在 R 中构建相对路径的函数？

Question

有没有类似的东西make.path.relative(base.path, target.path) ?

我想将完整路径转换为给定基本路径(如项目目录)的相对路径。

Answer 1

类似，但更短:

make.path.relative = function(base, target) {
  common = sub('^([^|]*)[^|]*(?:\\|\\1[^|]*)$', '^\\1/?', paste0(base, '|', target))

  paste0(gsub('[^/]+/?', '../', sub(common, '', base)),
         sub(common, '', target))
}

make.path.relative('C:/home/adam', 'C:/home/adam/tmp/R')
#[1] "tmp/R"

make.path.relative('/home/adam/tmp', '/home/adam/Documents/R')
#[1] "../Documents/R"

make.path.relative('/home/adam/Documents/R/Project', '/home/adam/minetest')
#[1] "../../../minetest"

Voodoo 正则表达式来了 from here .