context('print.zoonSummary')
test_that('print.zoonSummary tests', {
skip_on_cran()
set.seed(1)
work1 <- workflow(occurrence = UKAnophelesPlumbeus,
covariate = UKAir,
process = Background(n=70),
model = LogisticRegression,
output = PrintMap)
sum_out <- capture.output(summary(work1))
expect_output(print(sum_out), "Data summaries")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.