R/sameclass.R

In codelist: Working with Code Lists

Defines functions ischar sameclass

sameclass <- function(x, y) {
  if (is.numeric(x) && is.numeric(y)) {
    TRUE
  } else if (ischar(x) && ischar(y)) {
    TRUE
  } else {
    isTRUE(all.equal(class(x), class(y)))
  }
}

ischar <- function(x) {
  is.character(x) || is.factor(x)
}

Try the codelist package in your browser