feat: add function to construct objects.

quadbio · Mar 8, 2024 · 99866bb · 99866bb
1 parent 4c52309
commit 99866bb
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/R/objects.R b/R/objects.R
@@ -125,6 +125,20 @@ GRNData <- setClass(
 )
 
 
+#' Create GRNData object from a Seurat and a GRN object
+#' @rdname create_GRNData
+#' @export
+create_GRNData <- function(seurat_object, grn_object){
+    object <- new(
+        Class = 'GRNData',
+        grn = grn_object,
+        data = seurat_object
+    )
+
+    return(object)
+}
+
+
 #' Get network
 #' @rdname GetNetwork
 #' @method GetNetwork GRNData

diff --git a/tests/test_manual.R b/tests/test_manual.R
@@ -36,6 +36,11 @@ test_srt <- initiate_grn(
     exclude_exons = T
 )
 
+test_srt <- create_GRNData(
+    test_srt@data,
+    test_srt@grn
+)
+
 test_srt <- find_motifs(
     test_srt,
     motif_tfs = motif2tf,