R/tested.R

In codecov/example-r: A Minimal R Package Including Some Unit Tests

#' Demo function to return numbers
#' @param x character or numeric vector
#' @return numeric vector
#' @export
tested <- function(x) {

    ## error handling
    if (!(is.numeric(x) | is.character(x))) {
        stop('Wrong object type, only numeric or character is supported.')
    }

    ## do something with numbers
    if (is.numeric(x)) {

        return(x)

    } else {

        ## convert to numeric
        x <- as.numeric(x)

    }

    ## return stuff
    x * 2

}