#' Clean Imported Text
#'
#' Use to clean text variables when importing a new data set. Removes extra
#' white spaces other textual anomalies that may cause errors.
#'
#' @param text.var The text variable.
#' @param num2word logical If TRUE replaces a numbers with text representations.
#' @param fix.comma logical If TRUE removes any spaces before a comma.
#' @param rm.quote logical If TRUE removes and \code{\"}.
#' @param \ldots Other arguments passed to \code{\link[qdap]{replace_number}}.
#' @return Returns a parsed character vector.
#' @seealso \code{\link[qdap]{strip}}
#' @keywords parse, clean
#' @export
#' @examples
#' x <- c("I like 456 dogs\t , don't you?\"")
#' scrubber(x)
#' scrubber(x, TRUE)
scrubber <-
function(text.var, num2word = FALSE, rm.quote = TRUE, fix.comma = TRUE, ...){
x <- reducer(Trim(clean(text.var)))
if (rm.quote) {
x <- gsub('\"', "", x)
}
if (fix.comma) {
x <- gsub(" ,", ",", x)
}
ncx <- nchar(x)
x <- paste0(Trim(substring(x, 1, ncx - 1)), substring(x, ncx))
x[is.na(text.var)] <- NA
if (num2word) {
x <- replace_number(x, ...)
}
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.