tests/testthat/test_0load_by_name.R

# context("load_by_name")

test_that("Load data on first request",{
  	expect_that(load_by_name("dataset_5_stages"), shows_message("dataset_5_stages already exists in package environment: FALSE"))
	expect_that(ncol(load_by_name("dataset_5_stages"))==6, is_true())
})

test_that("Do not reload data",{
	  	expect_that(load_by_name("dataset_5_stages"), shows_message("dataset_5_stages already exists in package environment: TRUE"))
})

Try the ABAEnrichment package in your browser

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

ABAEnrichment documentation built on May 2, 2018, 4:06 a.m.