Merge branch 'main' of github.com:BioGenies/kmerFilters

BioGenies · Aug 14, 2024 · 4d3e3ed · 4d3e3ed
2 parents b9f78e0 + 33ea6f1
commit 4d3e3ed
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -37,6 +37,9 @@ Suggests:
     rmarkdown,
     spelling,
     testthat (>= 3.1.0)
+Remotes:
+    github::lubianat/FCBF,
+    github::slowikj/seqR
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.3.2

diff --git a/R/sequences.R b/R/sequences.R
@@ -76,6 +76,7 @@ generate_sequence_data <- function(n_seq,
     attr(sequences, "motifs_map") <- motifs_map
     attr(sequences, "masks") <- list_of_masks
     attr(sequences, "target") <- target
+    attr(sequences, "motifs_set") <- motifs
     sequences
 }
 
@@ -182,7 +183,7 @@ generate_kmer_data <- function(n_seq,
                                           nrow = nrow(test_dat),
                                           ncol = ncol(test_dat))
     attr(test_res, "max_injection") <- attr(test_dat, "max_injection")
-    attr(test_res, "motifs_set") <- motifs
+    attr(test_res, "motifs_set") <- attr(test_dat, "motifs_set")
     attr(test_res, "motifs_map") <- attr(test_dat, "motifs_map")
     attr(test_res, "masks") <- attr(test_dat, "masks")
     attr(test_res, "target") <- attr(test_dat, "target")