tests/testthat/testRerunWorkflow.R

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

context('RerunWorkflow')

# NOTE: forceReproducible is used here to ensure that modules
# are not cached as this results in a change in the version number 
# from x to 'local copy'


test_that('RerunWorkflow simple test', {
  skip_on_cran()
  
  set.seed(1)
  w1 <- workflow(UKAnophelesPlumbeus,
                 UKAir, 
                 Background(n = 70),
                 LogisticRegression,
                 PrintMap,
                 forceReproducible = TRUE)
  
  set.seed(1)
  w2 <- RerunWorkflow(w1)
  
  expect_true(all.equal(w1, w2))
  
})


test_that('RerunWorkflow test error', {
  
  skip_on_cran()
  set.seed(1)
  w1 <- workflow(UKAnophelesPlumbeus,
                 UKAir, 
                 Background(n = 70),
                 LogisticRegression,
                 PrintMap,
                 forceReproducible = TRUE)
  
  set.seed(1)
  
  expect_error(w2 <- RerunWorkflow(w1, from = 'a'), regexp = 'from \\%in\\% c\\(1\\:5\\) is not TRUE')
  expect_error(w2 <- RerunWorkflow(w1, from = 6), regexp = 'from \\%in\\% c\\(1\\:5\\) is not TRUE')
  
  # You cannot re-run a workflow with 
  
})


test_that('RerunWorkflow test with NULLs', {
  
  skip_on_cran()
  
  set.seed(1)
  w1 <- workflow(UKAnophelesPlumbeus,
                 UKAir, 
                 Background(n = 70),
                 LogisticRegression,
                 PrintMap,
                 forceReproducible = TRUE)
  
  w3 <- w1 
  for(i in 1:5) w3[i] <- list(NULL)
  
  w4 <- w1
  for(i in 2:5) w4[i] <- list(NULL)
  
  w5 <- w1
  for(i in 3:5) w5[i] <- list(NULL)
  
  w6 <- w1
  for(i in 4:5) w6[i] <- list(NULL)
  
  w7 <- w1
  for(i in 5) w7[i] <- list(NULL)
  
  set.seed(1)
  w8 <- RerunWorkflow(w3)
  set.seed(1)
  w9 <- RerunWorkflow(w4)
  set.seed(1)
  w10 <- RerunWorkflow(w5)
  set.seed(1)
  w11 <- RerunWorkflow(w6)
  set.seed(1)
  w12 <- RerunWorkflow(w7)
  
  expect_true(all.equal(w1, w8))
  expect_true(all.equal(w1, w9))
  expect_true(all.equal(w1, w10))
  expect_true(all.equal(w1, w11))
  expect_true(all.equal(w1, w12))
  
})


test_that('RerunWorkflow test with Chains', {
  
  skip_on_cran()
  
  set.seed(1)
  w13 <- workflow(Chain(UKAnophelesPlumbeus,UKAnophelesPlumbeus),
                 UKAir, 
                 Background(n = 70),
                 LogisticRegression,
                 PrintMap,
                 forceReproducible = TRUE)
  
  set.seed(1)
  w14 <- RerunWorkflow(w13)
  expect_true(all.equal(w14, w13))
  
  set.seed(1)
  w15 <- workflow(Chain(UKAnophelesPlumbeus,UKAnophelesPlumbeus),
                  Chain(UKAir, UKAir), 
                  Background(n = 70),
                  LogisticRegression,
                  PrintMap,
                  forceReproducible = TRUE)
  
  set.seed(1)
  w16 <- RerunWorkflow(w15)
  expect_true(all.equal(w15, w16))
  
})

test_that('RerunWorkflow test with lists', {
  skip_on_cran()
  
  set.seed(1)
  w17 <- workflow(list(UKAnophelesPlumbeus,UKAnophelesPlumbeus),
                  UKAir, 
                  Background(n = 70),
                  LogisticRegression,
                  PrintMap,
                  forceReproducible = TRUE)

  set.seed(1)
  w18 <- RerunWorkflow(w17)
  expect_true(all.equal(w18, w17))
  
  set.seed(1)
  w19 <- workflow(UKAnophelesPlumbeus,
                  list(UKAir, UKAir), 
                  Background(n = 70),
                  LogisticRegression,
                  PrintMap,
                  forceReproducible = TRUE)

  set.seed(1)
  w20 <- RerunWorkflow(w19)
  expect_true(all.equal(w19, w20))
  
})

test_that('RerunWorkflow test quoted modules', {
  skip_on_cran()
  
  set.seed(1)
  w21 <- workflow(occurrence = "UKAnophelesPlumbeus",
                  covariate  = UKAir,
                  process    = Background(n = 70),
                  model      = RandomForest,
                  output     = PrintMap,
                  forceReproducible = TRUE)

  set.seed(1)
  w22 <- RerunWorkflow(w21)
  
  expect_true(all.equal(w21, w22))
  
})