context("test-fail_amplify")
library(tbgeneratr)
# define unit tests code
testing_code <- quote({
expect_true("data.frame" %in% class(output))
expect_equal(ncol(output), 3)
expect_equal(nrow(output), length(unique(output[[1]])))
expect_equal(class(input$adm), class(output))
expect_equal(class(output$fail_amplify_dt), "Date")
# check dates are generated correctly
expect_true(all(is.na(output$fail_amplify_dt[output$fail_amplify == 0L])))
expect_true(all(! is.na(output$fail_amplify_dt[output$fail_amplify == 1L])))
expect_true(output$fail_amplify[output[[1]] == "XYZ1"] == 0L)
expect_true(output$fail_amplify[output[[1]] == "XYZ2"] == 0L)
expect_true(output$fail_amplify[output[[1]] == "XYZ3"] == 1L)
expect_true(output$fail_amplify[output[[1]] == "XYZ4"] == 0L)
expect_true(output$fail_amplify[output[[1]] == "XYZ5"] == 0L)
expect_true(output$fail_amplify[output[[1]] == "XYZ6"] == 0L)
expect_true(output$fail_amplify[output[[1]] == "XYZ9"] == 1L)
expect_true(output$fail_amplify[output[[1]] == "XYZ10"] == 1L)
expect_true(output$fail_amplify_dt[output[[1]] == "XYZ10"] == input$adm$STARTTRE[10] + 100)
})
error_testing <- quote({
})
## Epiinfo
# load test data
input <- system.file("testdata", "fail_amplify_epi.rds", package="tbgeneratr") %>%
readRDS()
output <- fail_amplify(adm = input$adm,
lab = input$lab)
# test code
test_that("EpiInfo testing", eval(testing_code))
# test_that("EpiInfo errors", eval(error_testing))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.