R/parseCommas.R

Defines functions parseCommas.data.frame parseCommas.default parseCommas

Documented in parseCommas parseCommas.data.frame parseCommas.default

parseCommas <- function(x, pattern='\\$|,', replacement='',
                                acceptableErrorRate=0, ... ){
    UseMethod('parseCommas')
}

parseCommas.default <- function(x, pattern='\\$|,', replacement='',
                                acceptableErrorRate=0, ... ){
    if(is.factor(x) | is.character(x)){
        xc <- as.character(x)
        x. <- parseDollars(xc, pattern, replacement, ...)
        good <- mean(is.na(x.[!is.na(x)]))
        if(good <= acceptableErrorRate) {
            return(x.)
        } else return(x)
    }
    x
}

parseCommas.data.frame <- function(x, pattern='\\$|,',
              replacement='', acceptableErrorRate=0, ... ){
    X <- lapply(x, parseCommas)
    as.data.frame(X)
}

Try the Ecfun package in your browser

Any scripts or data that you put into this service are public.

Ecfun documentation built on Oct. 10, 2022, 1:06 a.m.