tests/testthat/test-throws-RemaObjVectorError.R

test_that("throws when a rema object is given without all input vectors", {
  rema.obj.bad.vectors <- list()
  rema.obj.bad.vectors$dist <- c(1, 2)
  class(rema.obj.bad.vectors) <- "rema"
  expect_error(rema(rema.obj = rema.obj.bad.vectors, rema.obj.vector.err))
})

Try the rema package in your browser

Any scripts or data that you put into this service are public.

rema documentation built on Oct. 29, 2021, 1:07 a.m.