R/as_numeric.R

In kristian-bak/kb.yahoo: Simple data loading from yahoo

Defines functions as_numeric

Documented in as_numeric

#' As numeric
#' @param x character vector with numeric values where comma is used as thousand seperator
#'
as_numeric <- function(x) {

  gsub(",", ".", x) %>%
    as.numeric() %>%
    {. * 1000}

}