R/rm_extra_ws.R

In data-steve/kleentex: Helps Clean Your Text

#' Removes Extra Whitespace
#'
#' Removes extra Whitespace.
#'
#' @param xx text string / vector
#' @export
rm_extra_ws <- function(xx){
  trimws(
    gsub("\\s+", " ",xx )
  )
}