R/reclass.R

#' reclase
reclass <- function(x, result) {
  UseMethod('reclass')
}

reclass.default <- function(x, result) {
  class(result) <- unique(c(class(x)[[1]], class(result)))
  result
}
hazybluedot/racadia documentation built on May 25, 2019, 5:26 p.m.