don't forget to save

diazrenata · Apr 14, 2021 · f861d01 · f861d01
1 parent 6db28a1
commit f861d01
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/tests/testthat/test04_sample_fs.R b/tests/testthat/test04_sample_fs.R
@@ -50,23 +50,22 @@ test_that("sampling edge case fxns work", {
 
   dat <- NULL
 
-  p_table <- readRDS(here::here("masterp_mamm.Rds"))
-  expect_true(is.na(sample_fs_wrapper(dat, "1002", FALSE, 10, p_table = p_table)))
-  expect_true(is.na(sample_fs(dat, nsamples = 10, p_table = p_table)))
+  expect_true(is.na(sample_fs_wrapper(dat, "1002", FALSE, 10, p_table = NULL)))
+  expect_true(is.na(sample_fs(dat, nsamples = 10, p_table = NULL)))
 
   dat <- load_dataset("mcdb")
   dat <- dat %>%
     dplyr::filter(site == "I am not a site")
 
-  expect_true(is.na(sample_fs_wrapper(dat, "1002", FALSE, 10, p_table = p_table)))
-  expect_true(is.na(sample_fs(dat, nsamples = 10, p_table = p_table)))
+  expect_true(is.na(sample_fs_wrapper(dat, "1002", FALSE, 10, p_table = NULL)))
+  expect_true(is.na(sample_fs(dat, nsamples = 10, p_table = NULL)))
 
   dat <- load_dataset("mcdb")
   dat <- dat %>%
     dplyr::filter(site == "1003")
-  expect_true(is.na(sample_fs_wrapper(dat, "1002", FALSE, 10, p_table = p_table)))
+  expect_true(is.na(sample_fs_wrapper(dat, "1002", FALSE, 10, p_table = NULL)))
 
-  expect_true(is.data.frame(sample_fs_wrapper(dat, site_name = "1003", singletonsyn =  FALSE, n_samples = 10, p_table = p_table)))
+  expect_true(is.data.frame(sample_fs_wrapper(dat, site_name = "1003", singletonsyn =  FALSE, n_samples = 10, p_table = NULL)))
 
 
   })