powered by
file.path
split_path(x = dir())
(splits <- split_path(c(getwd(), "~", r_home()))) # Reverse the operation sapply(splits, paste, collapse = "/")
Run the code above in your browser using DataLab