1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#' Split a File Path into Components
#'
#' @description This function converts a character scalar containing a
#' \emph{valid} file path into a character vector of path components
#' (e.g. directories).
#'
#' @param x character scalar. Path to be processed.
#' @param depth_first logical. Should path be returned depth first? Defaults
#' to \code{TRUE}.
#'
#' @return Character vector of path components, depth first.
#'
#' @export
#'
split_path <- function(x, depth_first=TRUE)
{
if(length(x)>1) warning("This function is not vectorized.",
"Only processing the first element of x.")
retval <- split_path_inner(x)
if(!depth_first)
retval <- rev(retval)
retval[retval>""]
}
split_path_inner <- function(path) {
if (dirname(path) %in% c(".", path)) return(basename(path))
return(c(basename(path), split_path_inner(dirname(path))))
}
|
