Fix motif test

stuart-lab · Jan 16, 2025 · 8846770 · 8846770
1 parent 1eb526c
commit 8846770
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/tests/testdata/motifObj_2_225.rds b/tests/testdata/motifObj_2_225.rds
diff --git a/tests/testthat/test-motifs.R b/tests/testthat/test-motifs.R
@@ -38,13 +38,12 @@ test_that("AddMotifs works with fakechr", {
   ))
   skip_if_not_installed("motifmatchr")
   motif <- suppressWarnings(AddMotifs(
-    granges(object)[100:nrow(object)],
+    granges(object)[1:20],
     genome,
     pwm,
     verbose = FALSE
   ))
-  motif <- readRDS("../testdata/motifObj_2_225.rds")
-  expect_equal(dim(motif), c(225, 2))
+  expect_equal(dim(motif), c(20, 2))
   expect_warning(test <- SetAssayData(
     object = object,
     layer = "motifs",