From 218df8817e4bcea502a1c6eba2ffe83ceec263cf Mon Sep 17 00:00:00 2001
From: schochastics <david@schochastics.net>
Date: Tue, 24 Jun 2025 13:19:03 +0200
Subject: [PATCH 1/3] recover lost pie values

---
 R/plot.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/plot.R b/R/plot.R
index 43c75141150..667fb62daeb 100644
--- a/R/plot.R
+++ b/R/plot.R
@@ -233,7 +233,8 @@ plot.igraph <- function(
       graph,
       list(
         vertex.size = 1 / 200 * vertex.size,
-        vertex.size2 = 1 / 200 * params("vertex", "size2")
+        vertex.size2 = 1 / 200 * params("vertex", "size2"),
+        ...
       )
     )
     vertex.size <- 1 / 200 * vertex.size

From 3f5ab6385d48d3a3ec39dde6495134c935551ff6 Mon Sep 17 00:00:00 2001
From: schochastics <david@schochastics.net>
Date: Tue, 24 Jun 2025 13:26:24 +0200
Subject: [PATCH 2/3] fixed wrong duplication of frame color

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

diff --git a/R/plot.shapes.R b/R/plot.shapes.R
index b3a2322edf7..085bb2197fa 100644
--- a/R/plot.shapes.R
+++ b/R/plot.shapes.R
@@ -1242,7 +1242,12 @@ mypie <- function(
     p
   }
   vertex.color <- getparam("color")
-  vertex.frame.color <- getparam("frame.color")
+
+  vertex.frame.color <- rep(
+    getparam("frame.color"),
+    length = (nrow(coords))
+  )
+  print(vertex.frame.color)
   vertex.size <- rep(getparam("size"), length = nrow(coords))
   vertex.pie <- getparam("pie")
   vertex.pie.color <- getparam("pie.color")
@@ -1270,7 +1275,7 @@ mypie <- function(
       col = col,
       angle = na.omit(vertex.pie.angle[c(i, 1)])[1],
       density = na.omit(vertex.pie.density[c(i, 1)])[1],
-      border = na.omit(vertex.frame.color[c(i, 1)])[1],
+      border = vertex.frame.color[i],
       lty = na.omit(vertex.pie.lty[c(i, 1)])[1]
     )
   }

From 08674e64f932a9d42c4728d597a7accf4d96ac22 Mon Sep 17 00:00:00 2001
From: schochastics <david@schochastics.net>
Date: Tue, 24 Jun 2025 14:42:31 +0200
Subject: [PATCH 3/3] apparently fixed another unknown bug

---
 tests/testthat/_snaps/plot/rectangle-edges.svg | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tests/testthat/_snaps/plot/rectangle-edges.svg b/tests/testthat/_snaps/plot/rectangle-edges.svg
index b37ed4d6b42..b28a9769dd4 100644
--- a/tests/testthat/_snaps/plot/rectangle-edges.svg
+++ b/tests/testthat/_snaps/plot/rectangle-edges.svg
@@ -41,11 +41,11 @@
 <polygon points='261.76,400.66 262.09,399.47 262.49,398.22 262.97,396.88 263.57,395.41 264.38,393.76 265.55,391.74 269.00,387.48 268.90,387.38 264.58,390.76 262.54,391.90 260.88,392.67 259.40,393.25 258.06,393.72 256.79,394.09 255.60,394.40 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
 <polygon points='453.54,245.46 452.42,245.98 451.21,246.49 449.88,246.99 448.37,247.48 446.59,247.94 444.29,248.36 438.81,248.49 438.80,248.64 444.17,249.73 446.36,250.54 448.03,251.31 449.43,252.05 450.65,252.78 451.76,253.50 452.77,254.21 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
 <polygon points='404.52,205.39 405.21,206.41 405.92,207.52 406.63,208.75 407.36,210.16 408.10,211.84 408.89,214.04 409.92,219.42 410.06,219.41 410.26,213.94 410.71,211.64 411.19,209.87 411.70,208.37 412.21,207.04 412.74,205.83 413.28,204.72 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: #A9A9A9;' />
-<rect x='268.95' y='334.30' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
-<rect x='385.24' y='219.41' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
-<rect x='374.30' y='75.47' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
-<rect x='169.07' y='432.57' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
-<rect x='526.17' y='231.87' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #E69F00;' />
+<rect x='268.95' y='334.30' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
+<rect x='385.24' y='219.41' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
+<rect x='374.30' y='75.47' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
+<rect x='169.07' y='432.57' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
+<rect x='526.17' y='231.87' width='53.57' height='53.57' style='stroke-width: 0.75; fill: #1AB3CC; fill-opacity: 0.10;' />
 </g>
 <g clip-path='url(#cpMC4wMHw3MjAuMDB8MC4wMHw1NzYuMDA=)'>
 <text x='295.73' y='365.21' text-anchor='middle' style='font-size: 12.00px; fill: #00008B; font-family: sans;' textLength='6.67px' lengthAdjust='spacingAndGlyphs'>1</text>