Updated manual test

Katsevich-Lab · Jan 30, 2025 · ba22f02 · ba22f02
1 parent ef052ab
commit ba22f02
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -19,7 +19,7 @@ Description: `sceptre` is an R package for statistically rigorous, massively sca
 License: GPL-3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 LinkingTo: Rcpp, BH
 biocViews: CRISPR, SingleCell, DifferentialExpression, GeneRegulation, DataImport, GeneTarget
 Imports:

diff --git a/tests/manual/test-flexible-cell-assignments.R b/tests/manual/test-flexible-cell-assignments.R
@@ -6,7 +6,7 @@
 
 run_lowmoi_example <- function(){
   library(sceptre)
-  library(sceptredata)
+#  library(sceptredata)
   # 1. create the sceptre object
   data("lowmoi_example_data")
   sceptre_object <- import_data(
@@ -23,8 +23,8 @@ run_lowmoi_example <- function(){
     sceptre_object = sceptre_object,
     positive_control_pairs = positive_control_pairs,
     pairs_to_exclude = "pc_pairs"
-  ) |>
-    dplyr::filter(response_id == "PCBP3")
+  ) # |>
+#    dplyr::filter(response_id == "PCBP3")
 
   sceptre_object <- set_analysis_parameters(
     sceptre_object = sceptre_object,
@@ -55,11 +55,11 @@ run_lowmoi_example <- function(){
 
 run_highmoi_example <- function(){
   library(sceptre)
-  library(sceptredata)
+#  library(sceptredata)
 
   # 1. create the sceptre object from cellranger output
   directories <- paste0(
-    system.file("extdata", package = "sceptredata"),
+    system.file("extdata", package = "sceptre"),
     "/highmoi_example/gem_group_", c(1, 2)
   )
   data(grna_target_data_frame_highmoi)
@@ -74,8 +74,8 @@ run_highmoi_example <- function(){
   discovery_pairs <- construct_cis_pairs(sceptre_object,
                                          positive_control_pairs = positive_control_pairs,
                                          distance_threshold = 5e6
-  ) |>
-    dplyr::slice_head(n = 100)
+  ) # |>
+#    dplyr::slice_head(n = 100)
 
   sceptre_object <- set_analysis_parameters(
     sceptre_object = sceptre_object,