R/trans_num.R

In aaronpeikert/fromr: Enhance the formr Package so import data from formr is more simple

#' Turn should be numerics into numerics
#'
#' \code{trans_num} turn should be numerics into numerics
#' @export
trans_num <- function(x){
  # for test, remove na
  x_test <- na.omit(x)
  # and remove empty strings
  x_test <- x_test[x_test != ""]
  if (any(suppressWarnings(is.na(as.numeric(x_test))))) {
    return <- x
  } else {
    return <- as.numeric(x)
  }
  return(return)
}