context("Build Plans")
data_file <- file.path(tempdir(), "ward_data.RDS")
test_that("Drake plan for Ward et al. databases works", {
expect_error(data_plan <- build_ward_data_plan(data_file), NA)
expect_equal(dim(data_plan), c(7, 2))
expect_true(all(grepl("data_.+", data_plan$target)))
})
test_that("Drake plan for Ward et al. methods works", {
expect_error(methods_plan <- build_ward_methods_plan(), NA)
expect_equal(dim(methods_plan), c(44, 2))
expect_true(all(grepl("MATSS::analysis_wrapper\\(.+\\)", methods_plan$command)))
})
test_that("Plan for forecasting comparison methods works", {
expect_error(methods_plan <- build_methods_plan(), NA)
expect_equal(dim(methods_plan), c(10, 2))
expect_true(all(grepl("MATSS::analysis_wrapper\\(.+\\)", methods_plan$command)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.