tests/testthat/helper-load_test_data.R

load_testdata<-function(dataset){
  dataset<-paste(dataset,".rda",sep = "")
  f<-system.file("testdata",dataset, package = "bpcs",mustWork = TRUE)
  out<-get(load(file=f))
  return(out)
}

Try the bpcs package in your browser

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

bpcs documentation built on Dec. 15, 2020, 5:23 p.m.