R/trimis.R

In patelm9/cartographR2:

#' Trims extra spaces within strings
#' @param vector character vector of length one or greater
#' @return vector with inner whitespace removed
#' @importFrom stringr str_replace_all
#' @export

trimis <-
        function(vector) {
                return(stringr::str_replace_all(vector, "[ ]{2,}", " "))
        }