testthat::context("Import Data objects")
if (basename(getwd()) == "DLMtool") {
fls <- list.files("../DLMDev/DLMtool_Data/Data")
} else {
fls <- list.files("../../../../DLMDev/DLMtool_Data/Data")
}
for (fl in fls) {
testthat::test_that(paste("new('Data') works with ", fl), {
testthat::expect_error(Data <- new("Data", file.path("../../../../DLMDev/DLMtool_Data/Data", fl)), NA)
testthat::expect_error(summary(Data, wait=FALSE), NA)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.