R/utils.R

In miracum/clearly-sigident.preproc: Sigident Preprocessing

#' @title clean_path_name helper function
#'
#' @description Internal function to clean paths to have a
#'   tailing slash
#'
#' @param pathname A character string. A pathname to be
#'   cleaned (to have a tailing slash).
#'
#' @export
#'
clean_path_name <- function(pathname) {
  return(gsub("([[:alnum:]])$", "\\1/", pathname))
}