importBugSigDB tests: check for different dimensions depending on source

waldronlab · Oct 13, 2024 · 5b35f87 · 5b35f87
1 parent 63efc0c
commit 5b35f87
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: bugsigdbr
-Version: 1.11.1
+Version: 1.11.2
 Title: R-side access to published microbial signatures from BugSigDB
 Authors@R: c(
     person(given = "Ludwig",

diff --git a/tests/testthat/test-importBugSigDB.R b/tests/testthat/test-importBugSigDB.R
@@ -1,7 +1,7 @@
-checkImport <- function(bsdb, url)
+checkImport <- function(bsdb, url, nrows = 2000)
 {
     expect_true(is.data.frame(bsdb))
-    expect_gt(nrow(bsdb), 2000)
+    expect_gt(nrow(bsdb), nrows)
     expect_gt(ncol(bsdb), 40)
     expect_true(all(c("Study", "Study design", "PMID") %in% colnames(bsdb)[1:4]))
 
@@ -18,15 +18,15 @@ checkImport <- function(bsdb, url)
 }
 
 test_that("importBugSigDB from Zenodo", {
-    bsdb <- bugsigdbr::importBugSigDB(version = "10.5281/zenodo.5819260", cache = FALSE)
-    url <- "https://zenodo.org/record/5819260/files/full_dump.csv"
-    checkImport(bsdb, url)
+    bsdb <- bugsigdbr::importBugSigDB(version = "10.5281/zenodo.10627578", cache = FALSE)
+    url <- "https://zenodo.org/record/10627578/files/full_dump.csv"
+    checkImport(bsdb, url, nrows = 3500)
 })
 
 test_that("importBugSigDB from the edge (devel)", {
     bsdb <- bugsigdbr::importBugSigDB(version = "devel", cache = FALSE)
     url <- "https://tinyurl.com/3nvzm3fx"
-    checkImport(bsdb, url)
+    checkImport(bsdb, url, nrows = 5500)
 })
 
 test_that("importBugSigDB from github hash", {