Extracting relative file paths.
getRelative(path, relativeToPath)
makeRelative(files, absoluteBase)character vector or list specifying file paths
directory against which path will be relativized.
character vector or list specifying file paths
base directory (as absolute path) to prepend to files
getRelative() searches path "from the right" (instead of "from the left")
and tries to reconstruct it relative to directory specified by relativeToPath.
This is useful when dealing with symlinked paths.
makeRelative() checks to see if files and normPath(absoluteBase) share a common path
(i.e., "from the left"), otherwise it returns files.
## create a project directory (e.g., on a hard drive)
(tmp1 <- tempdir2("myProject", create = TRUE))
#> [1] "/tmp/RtmppTHlRk/reproducible/myProject"
## create a cache directory elsewhere (e.g., on an SSD)
(tmp2 <- tempdir2("my_cache", create = TRUE))
#> [1] "/tmp/RtmppTHlRk/reproducible/my_cache"
## symlink the project cache directory to tmp2
## files created here are actually stored in tmp2
prjCache <- file.path(tmp1, "cache")
file.symlink(tmp2, prjCache)
#> [1] TRUE
## create a dummy cache object file in the project cache dir
(tmpf <- tempfile("cache_", prjCache))
#> [1] "/tmp/RtmppTHlRk/reproducible/myProject/cache/cache_23b44850023f"
cat(rnorm(100), file = tmpf)
file.exists(tmpf)
#> [1] TRUE
normPath(tmpf) ## note the 'real' location (i.e., symlink resolved)
#> [1] "/tmp/RtmppTHlRk/reproducible/my_cache/cache_23b44850023f"
getRelative(tmpf, prjCache) ## relative path
#> [1] "cache_23b44850023f"
getRelative(tmpf, tmp2) ## relative path
#> [1] "myProject/cache/cache_23b44850023f"
makeRelative(tmpf, tmp2) ## abs path; tmpf and normPath(tmp2) don't share common path
#> [1] "/tmp/RtmppTHlRk/reproducible/myProject/cache/cache_23b44850023f"
makeRelative(tmpf, prjCache) ## abs path; tmpf and normPath(tmp2) don't share common path
#> [1] "/tmp/RtmppTHlRk/reproducible/myProject/cache/cache_23b44850023f"
makeRelative(normPath(tmpf), prjCache) ## rel path; share common path when both normPath-ed
#> [1] "cache_23b44850023f"
unlink(tmp1, recursive = TRUE)
unlink(tmp2, recursive = TRUE)