tests/testthat/tests_vreq.R

context("vreq")
library(tsvr)

test_that("test vreq constructor",{
  h<-vreq(com=2,comnull=2,vr=1)
  expect_s3_class(h,"vreq")
  expect_equal(h$com,2)
  expect_equal(h$comnull,2)
  expect_equal(h$vr,1)
})

Try the tsvr package in your browser

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

tsvr documentation built on Jan. 13, 2021, 7:37 a.m.