Update motif_enrichment to use correct path.

neurogenomics · Apr 26, 2024 · d5aba61 · d5aba61
1 parent e358fd0
commit d5aba61
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/motif_enrichment.R b/R/motif_enrichment.R
@@ -54,7 +54,8 @@ motif_enrichment <- function(peak_input,
                            database = list(motif),
                            outdir = out_dir)
 
-  seq <- read.table("sequences.tsv", header = TRUE)
+  seq_path <- file.path(out_dir, "sequences.tsv")
+  seq <- read.table(seq_path, header = TRUE)
   cleaned_ids <- seq$seq_ID[!grepl("_shuf_1", seq$seq_ID)]
 
   return(

diff --git a/tests/testthat/test-motif_enrichment.R b/tests/testthat/test-motif_enrichment.R
@@ -1,4 +1,4 @@
-test_that("list outputted by peak_proportion function", {
+test_that("list outputted by motif_enrichment function", {
   data("creb_peaks", package = "MotifStats")
   data("creb_motif", package = "MotifStats")