From 3186ec46c027426a16645792b10099e0eac45d32 Mon Sep 17 00:00:00 2001
From: Thomas Lin Pedersen <thomasp85@gmail.com>
Date: Wed, 10 Jan 2024 16:52:50 +0100
Subject: [PATCH] Set rename_size correctly on edge geoms

---
 R/geom_edge.R | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/R/geom_edge.R b/R/geom_edge.R
index 8b622ae1..8f543ad2 100644
--- a/R/geom_edge.R
+++ b/R/geom_edge.R
@@ -194,7 +194,8 @@ GeomEdgePath <- ggproto('GeomEdgePath', GeomPath,
     label_pos = 0.5, label_size = 3.88, angle = 0,
     hjust = 0.5, vjust = 0.5, family = '', fontface = 1,
     lineheight = 1.2
-  )
+  ),
+  rename_size = FALSE
 )
 #' @rdname ggraph-extensions
 #' @format NULL
@@ -270,7 +271,8 @@ GeomEdgeSegment <- ggproto('GeomEdgeSegment', GeomSegment,
   default_aes = aes(
     edge_colour = 'black', edge_width = 0.5, edge_linetype = 1,
     edge_alpha = NA
-  )
+  ),
+  rename_size = FALSE
 )
 #' @rdname ggraph-extensions
 #' @format NULL
@@ -475,6 +477,7 @@ GeomEdgeTile <- ggproto('GeomEdgeTile', GeomTile,
     edge_fill = 'grey20', edge_colour = NA, edge_width = 0.1,
     edge_linetype = 1, edge_alpha = NA
   ),
+  rename_size = FALSE,
   extra_params = c('na.rm', 'mirror')
 )
 #' @rdname ggraph-extensions
@@ -506,6 +509,7 @@ GeomEdgeBezier <- ggproto('GeomEdgeBezier', GeomBezier0,
     edge_colour = 'black', edge_width = 0.5, edge_linetype = 1,
     edge_alpha = NA
   ),
+  rename_size = FALSE,
   handle_na = function(data, ...) {
     data
   }
@@ -539,6 +543,7 @@ GeomEdgeBspline <- ggproto('GeomEdgeBspline', GeomBspline0,
     edge_colour = 'black', edge_width = 0.5, edge_linetype = 1,
     edge_alpha = NA
   ),
+  rename_size = FALSE,
   handle_na = function(data, ...) {
     data
   }