R/numeric_to_factor.r

In robertzk/syberiaMungebits: Common mungebits used with Syberia projects.

#' numeric to factor helper function
#' 
#' TODO: Make this faster
#' 
#' @param num a numeric atomic vector. Will be restored to a factor variable.
#' @param levs a character vector of levels. 
#' @param na.to.missing a logical. Whether to convert NAs to a "Missing" level.
#' @keywords internal
numeric_to_factor <- function(num, levs, na.to.missing = TRUE) {
  res <- .Call('syberiaMungebits_numeric_to_factor',
         num, levs, na.to.missing, PACKAGE = 'syberiaMungebits')
  if (na.to.missing && 'Missing' %in% res) levs <- union(levs, 'Missing')
  factor(res, levs) 
}