R/utils.R

Defines functions path_reduce

path_reduce <- function(src) {
  src <- gsub(normalizePath(getwd(),winslash = '/'), ".", src)
  src <- gsub(normalizePath(tempdir(),winslash = '/'), ".", src)
  gsub(dirname(normalizePath(tempdir(),winslash = '/')), ".", src)
}
yonicd/whereami documentation built on Jan. 9, 2023, 9:59 a.m.