R/expect.R

In Blitzy29/R.PersonalTools: Personal tools that I'll need everywhere

# You can learn more about package authoring with RStudio at:
#
#   http://r-pkgs.had.co.nz/
#
# Some useful keyboard shortcuts for package authoring:
#
#   Build and Reload Package:  'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'


expect_in <- function(element,listOfElements, ...) {
  if (length(element) == 1) expect_true(element %in% listOfElements, ...)
  if (length(element) > 1) for (iElement in element) expect_true(iElement %in% listOfElements, ...)
}

expect_class <- function(object,classExpectd, ...) {
  expect_in(class(object),classExpectd, ...)
}