propogate use_edges

r-causal · Jan 28, 2024 · 1667b8c · 1667b8c
1 parent 5680ae1
commit 1667b8c
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/R/canonical.R b/R/canonical.R
@@ -32,7 +32,7 @@ node_canonical <- function(.dag, ...) {
 #' @export
 ggdag_canonical <- function(.tdy_dag, ..., edge_type = "link_arc", node_size = 16, text_size = 3.88,
                             label_size = text_size,
-                            text_col = "white", label_col = text_col,
+                            text_col = "white", label_col = text_col, use_edges = TRUE,
                             use_nodes = TRUE, use_stylized = FALSE, use_text = TRUE,
                             use_labels = NULL, label = NULL, text = NULL, node = deprecated(),
                             stylized = deprecated()) {
@@ -41,6 +41,7 @@ ggdag_canonical <- function(.tdy_dag, ..., edge_type = "link_arc", node_size = 1
     ggdag(
       node_size = node_size, text_size = text_size, label_size,
       edge_type = edge_type, text_col = text_col, label_col = label_col,
-      use_nodes = use_nodes, use_stylized = use_stylized, use_text = use_text, use_labels = use_labels
+      use_edges = use_edges, use_nodes = use_nodes, use_stylized = use_stylized,
+      use_text = use_text, use_labels = use_labels
     )
 }
diff --git a/R/drelationship.R b/R/drelationship.R
@@ -202,6 +202,7 @@ ggdag_drelationship <- function(.tdy_dag, from = NULL, to = NULL, controlling_fo
                                 label_size = text_size,
                                 text_col = "white", label_col = "black",
                                 edge_width = 0.6, edge_cap = 10, arrow_length = 5,
+                                use_edges = TRUE,
                                 use_nodes = TRUE, use_stylized = FALSE, use_text = TRUE,
                                 use_labels = FALSE, label = NULL, text = NULL, node = deprecated(),
                                 stylized = deprecated(), collider_lines = TRUE) {
@@ -223,6 +224,7 @@ ggdag_drelationship <- function(.tdy_dag, from = NULL, to = NULL, controlling_fo
       edge_width = edge_width,
       edge_cap = edge_cap,
       arrow_length = arrow_length,
+      use_edges = use_edges,
       use_nodes = use_nodes,
       use_stylized = use_stylized,
       use_text = use_text,

diff --git a/R/ggdag.R b/R/ggdag.R
@@ -30,6 +30,7 @@ ggdag <- function(.tdy_dag, ..., size = 1, edge_type = "link_arc", node_size = 1
                   label_size = text_size,
                   text_col = "white", label_col = "black",
                   edge_width = 0.6, edge_cap = 8, arrow_length = 5,
+                  use_edges = TRUE,
                   use_nodes = TRUE, use_stylized = FALSE, use_text = TRUE,
                   use_labels = FALSE, text = NULL, label = NULL,
                   node = deprecated(), stylized = deprecated()) {
@@ -47,6 +48,7 @@ ggdag <- function(.tdy_dag, ..., size = 1, edge_type = "link_arc", node_size = 1
       edge_width = edge_width,
       edge_cap = edge_cap,
       arrow_length = arrow_length,
+      use_edges = use_edges,
       use_nodes = use_nodes,
       use_stylized = use_stylized,
       use_text = use_text,