Allow for construction of caugi_graph using a cg_state

Author: frederikfabriciusbjerre

R/caugi_graph.R

@@ -38,6 +38,8 @@
 #' nodes are provided, the graph will not be built and the pointer will be
 #' `NULL`.
 #' @param class Character; one of `"UNKNOWN"`, `"DAG"`, or `"PDAG"`.
+#' @param state For internal use. Build a graph by supplying a pre-constructed
+#' state environment.
 #'
 #' @returns A [`caugi_graph`] S7 object containing the nodes, edges, and a
 #' pointer to the underlying Rust graph structure.
@@ -190,7 +192,14 @@ caugi_graph <- S7::new_class(
                          from = NULL, edge = NULL, to = NULL, nodes = NULL,
                          simple = TRUE,
                          build = TRUE,
-                         class = c("UNKNOWN", "DAG", "PDAG")) {
+                         class = c("UNKNOWN", "DAG", "PDAG"),
+                         state = NULL) {
+    if (!is.null(state)) {
+      return(S7::new_object(
+        caugi_graph,
+        `.state` = state
+      ))
+    }
     class <- toupper(class)
     class <- match.arg(class)