R/deblank.R

In TobieSurette/gulf.utils: Southern Gulf of Saint Lawrence Utility Functions

#' Remove Leading and Trailing Spaces
#'
#' @description Removes leading and trailing spaces from character strings.
#'
#' @param x Character string(s).
#'
#' @examples
#' x <- "  Why hello there. "
#' print(deblank(x))
#'
#' @export deblank
deblank <- function(x){
   x <- gsub("^[ \t\r\n]+", "", x, perl = TRUE)
   x <- gsub("[ \t\r\n]+$", "", x, perl = TRUE)
   return(x)
}