Merge pull request #4 from HDash/main

Fix "subscript contains invalid names" error by removing all instances of shuffled sequences
neurogenomics · Jun 3, 2024 · 842abd6 · 842abd6
2 parents 2d66a5d + b538c15
commit 842abd6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/motif_enrichment.R b/R/motif_enrichment.R
@@ -57,7 +57,7 @@ motif_enrichment <- function(peak_input,
 
   seq_path <- file.path(out_dir, "sequences.tsv")
   seq <- utils::read.table(seq_path, header = TRUE)
-  cleaned_ids <- seq$seq_ID[!grepl("_shuf_1", seq$seq_ID)]
+  cleaned_ids <- seq$seq_ID[!grepl("_shuf_", seq$seq_ID)]
 
   return(
     list(