Fix "subscript contains invalid names" error by removing all instance…

…s of shuffled sequences
neurogenomics · Jun 3, 2024 · b538c15 · b538c15
1 parent 2d66a5d
commit b538c15
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(