R/removeSpaces-functions.R

In sgibb/sgtools: miscellaneous R functions

### Copyright 2012 Sebastian Gibb
## <mail@sebastiangibb.de>
##
## This is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## It is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## See <http://www.gnu.org/licenses/>

#' removeSpaces
#' 
#' removes all spaces (whitespaces, tabs, newlines) in a string
#'
#' @param text character vector
#' @return cleaned vector
#' 
#' @export
#'
#' @examples
#'  removeSpaces(" a lot of                      spaces\n")
#'  # "alotofspaces"
#'

removeSpaces <- function(text) {
    return(gsub(pattern="[[:space:]]", replacement="", x=text));
}