R/root_dir-function.R

In darrellpenta/dissertate: Convenience functions for writing a dissertation (Cognitive Science, etc)

#' Shortcut for specifying paths relative to root
#'
#' \code{root_dir} is a wrapper around \code{getwd} that appends the path-part to the location specified by the user-supplied argument.
#'
#' @param pathpart A string to the path
#' @return A character vector with the path to the root directory appended to the path-part specified.
#' @rdname root_dir
#' @examples
#'
#' # Supply path-part without preceding forward slash
#'
#' ##root_dir("myfolder/test.txt")
#'
#'
#' @export

root_dir <-
  function(pathpart) {paste0(as.character(getwd()),"/",pathpart, collapse = "")}