R/numeric_factor_class.R

In dsnavega/imputeForest: Missing value imputation model using randomForest

numeric_factor_class <- function(x) {
  
  condition <- any(x %in% "ordered")
  if (condition) {
    rout <- "factor"
  } else {
    rout <- x
  }
  
  condition <- any(rout %in% "integer")
  if (condition) {
    rout <- "numeric"
  } else {
    rout <- rout
  }
  
  # return
  return(rout)
  
}