R/fCharacter2Numeric.R

In ksmiff33/FluxSynthU: Suite of functions to analyze eddy covariance data

#' Converts dataframe columns of class 'character' to class 'numeric.'
#' @export
#' @title Convert character to numeric
#' @param dat a dataframe.



# fCharacter2Numeric - Converts columns of class 'character' to class 'numeric.'
fCharacter2Numeric <- function(dat) {
  dat <- data.frame(lapply(dat, function(x) if(is.character(x)) {
    return(as.numeric(x))
  } else {
    return(x)
  }
  ), stringsAsFactors=FALSE)
}