context("Function getMaxImportExport")
test_that("getMaxImportExport", {
domainesFB <- readRDS(system.file("testdata/antaresInput/domainesFB.RDS", package = "fbAntares"))
dtImportExport <- getMaxImportExport(domainesFB)
expect_true("data.table" %in% class(dtImportExport))
expect_true(ncol(dtImportExport) == 26)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.