tests/testthat/testsummary.zoonWorkflow.R

In zoon: Reproducible, Accessible & Shareable Species Distribution Modelling

context("summary.zoonWorkflow")

test_that("summary.zoonWorkflow tests", {
  skip_on_cran()

  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = UKAir,
      process = Background(n = 70),
      model = LogisticRegression,
      output = SameTimePlaceMap
    )),
    class = "character"
  )

  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = Chain(UKAir, UKAir, UKAir, UKAir, UKAir, UKAir),
      process = Background(n = 70),
      model = LogisticRegression,
      output = SameTimePlaceMap
    )),
    class = "character"
  )

  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = list(UKAir, UKAir),
      process = Background(n = 70),
      model = LogisticRegression,
      output = SameTimePlaceMap
    )),
    class = "character"
  )

  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = UKAir,
      process = Background(n = 70),
      model = LogisticRegression,
      output = SameTimePlaceMap
    )),
    class = "character"
  )

  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = UKAir,
      process = list(Background(n = 70), NoProcess),
      model = LogisticRegression,
      output = SameTimePlaceMap
    )),
    class = "character"
  )

  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = UKAir,
      process = Background(n = 70),
      model = list(Domain, LogisticRegression),
      output = SameTimePlaceMap
    )),
    class = "character"
  )

  suppressWarnings({SDMTools_check <- requireNamespace('SDMTools', quietly = TRUE)})
  if(!SDMTools_check) skip(message = 'SDMTools required for some tests')
  
  set.seed(1)
  expect_is(
    summary(workflow(
      occurrence = UKAnophelesPlumbeus,
      covariate = UKAir,
      process = BackgroundAndCrossvalid,
      model = Domain,
      output = list(
        SameTimePlaceMap,
        PerformanceMeasures
      )
    )),
    class = "character"
  )
})