R/Bleach_Currency.R

In hansthompson/data_bleaching_tools: What the package does (short line)

Bleach_Currency <- function(money) {
    require(stringr)
    currency <- gsub("\\$", "", currency)
    currency <- gsub("\\)","", currency)
    currency <- gsub("\\(","-", currency)
    currency <- gsub(",", "", currency)
    currency <- str_replace_all(currency, "[[:punct:]]", " ")
    currency <- as.numeric(currency)
}