Nothing
contextStr <- "CORCBM: DfCreate/ExtractCorCbmDataset"
context(contextStr)
test_that(contextStr, {
fn <- paste0(test_path(), "/goodValues361/CORCBM/DfCreateCorCbmDataset", ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ds <- DfCreateCorCbmDataset()
saveRDS(ds, file = fn)
}
ds <- readRDS(fn)
expect_equal(DfCreateCorCbmDataset(), ds)
# end of test
fn <- paste0(test_path(), '/goodValues361/CORCBM/DfExtractCorCbmDataset', ".rds")
if (!file.exists(fn)) {
warning(paste0("File not found - generating new ",fn))
ds <- DfExtractCorCbmDataset(dataset05, trts = 1, rdrs = c(2,3))
saveRDS(ds, file = fn)
}
ds <- readRDS(fn)
expect_equal(DfExtractCorCbmDataset(dataset05, trts = 1, rdrs = c(2,3)), ds)
# end of test
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.