From b538c151a75e2d8df0815bfea6ab1748c1956f33 Mon Sep 17 00:00:00 2001
From: HDash <16350928+HDash@users.noreply.github.com>
Date: Mon, 3 Jun 2024 11:51:49 +0100
Subject: [PATCH] Fix "subscript contains invalid names" error by removing all
 instances of shuffled sequences

---
 R/motif_enrichment.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/motif_enrichment.R b/R/motif_enrichment.R
index afe1190..bc21a01 100644
--- 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(