tests/testthat/testprint.zoonSummary.R

In Boodogs/zoon-clone: Reproducible, Accessible & Shareable Species Distribution Modelling

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")
  
})