tests/testthat/testtestModule.R

In zoonproject/zoon: Reproducible, Accessible & Shareable Species Distribution Modelling

context("testModules")

test_that("repo modules pass", {
  skip_on_cran()

  # Output
  basepath <- "https://raw.githubusercontent.com/zoonproject/modules/master/R/"
  
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "PrintMap.R")))

  # Process PO
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "OneHundredBackground.R")))

  # Process PA
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "Crossvalidate.R")))





  # Covariate
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "UKAir.R")))

  suppressWarnings({SDMTools_check <- requireNamespace('SDMTools', quietly = TRUE)})
  
  if(!SDMTools_check) skip(message = 'SDMTools required for some tests - please install first')

  # Occurrence PA
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "CWBZimbabwe.R")))
  # Model PA
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "LogisticRegression.R"))) 
  # Model PB
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "MaxLike.R"))) 
  # Occurrence PO
  expect_true(x <- zoon:::test_module(paste0(basepath,
                                             "CarolinaWrenPO.R")))
})