R/split_path.R

In gtools: Various R Programming Tools

#' 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))))
}