R/gpath.R

In cmcouto-silva/gt: Facilities for essential tasks in R

##' @export
add_last_bar <- function(path){
  if(!grepl("/$", path)) path <- paste0(path, "/")
  return(path)
}

##' @export
getout_path <- function(path){
  if(missing(path)){path <- "."}
  if(!grepl("/$", path)){path <- paste0(path, "/")}
  if(grepl("^\\./?$", path)){path <- ""}
  .path <<- paste(getwd(), path, sep = "/")
}

##' @export
getout_name <- function(output){
  paste0(.path, output)
}