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
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]
)
}
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 @@
-
-
-
-
-
+
+
+
+
+
1