From 35c036ca3e12b26431cb79894971350c7b146419 Mon Sep 17 00:00:00 2001
From: Malcolm Barrett <malcolmbarrett@gmail.com>
Date: Fri, 17 Mar 2023 12:10:09 -0400
Subject: [PATCH] fix additional edge warnings

---
 R/StatsandGeoms.R                 | 1 +
 R/equivalence.R                   | 2 +-
 man/as.data.frame.tidy_dagitty.Rd | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/StatsandGeoms.R b/R/StatsandGeoms.R
index c5c4f3e8..7561c71c 100644
--- a/R/StatsandGeoms.R
+++ b/R/StatsandGeoms.R
@@ -175,6 +175,7 @@ GeomDAGEdgePath <- ggplot2::ggproto("GeomDAGEdgePath", ggraph::GeomEdgePath,
   },
   non_missing_aes = c("direction", "direction_type"),
   default_aes = ggplot2::aes(
+    linewidth = NA,
     edge_colour = "black", edge_width = 0.6, edge_linetype = "solid",
     edge_alpha = NA, start_cap = ggraph::circle(8, "mm"), end_cap = ggraph::circle(8, "mm"), label = NA,
     label_pos = 0.5, label_size = 3.88, angle = 0, hjust = 0.5,
diff --git a/R/equivalence.R b/R/equivalence.R
index 13f84f5d..69583488 100644
--- a/R/equivalence.R
+++ b/R/equivalence.R
@@ -58,7 +58,7 @@ node_equivalent_dags <- function(.dag, n = 100, layout = "auto", ...) {
     purrr::map_df(map_equivalence, .id = "dag") %>%
     dplyr::as_tibble()
 
-  if (extra_columns) .dag$data <- left_join(.dag$data, extra_column_df, by = "name")
+  if (extra_columns) .dag$data <- ggdag_left_join(.dag$data, extra_column_df, by = "name")
 
   .dag
 }
diff --git a/man/as.data.frame.tidy_dagitty.Rd b/man/as.data.frame.tidy_dagitty.Rd
index 6e275f13..dd9976ba 100644
--- a/man/as.data.frame.tidy_dagitty.Rd
+++ b/man/as.data.frame.tidy_dagitty.Rd
@@ -4,7 +4,7 @@
 \alias{as.data.frame.tidy_dagitty}
 \title{Convert a \code{tidy_dagitty} object to data.frame}
 \usage{
-\method{as.data.frame}{tidy_dagitty}(x, row.names, optional, ...)
+\method{as.data.frame}{tidy_dagitty}(x, row.names = NULL, optional = FALSE, ...)
 }
 \arguments{
 \item{x}{an object of class \code{tidy_dagitty}}