From 3f92d65c02c91141df48ae19919be0a7ebe402e9 Mon Sep 17 00:00:00 2001 From: schochastics Date: Fri, 4 Apr 2025 18:33:11 +0200 Subject: [PATCH] fixed disappearing loops --- R/plot.R | 1 + tests/testthat/_snaps/plot/basic-graph-layout-1.svg | 2 +- tests/testthat/_snaps/plot/basic-graph-layout-2.svg | 2 +- tests/testthat/_snaps/plot/basic-graph-spheres.svg | 1 + tests/testthat/_snaps/plot/loop-graph.svg | 4 ++-- 5 files changed, 6 insertions(+), 4 deletions(-) diff --git a/R/plot.R b/R/plot.R index 4e10254f7ec..dc077b86c38 100644 --- a/R/plot.R +++ b/R/plot.R @@ -211,6 +211,7 @@ plot.igraph <- function(x, graph, list(vertex.size = 1 / 200 * vertex.size, vertex.size2 = 1 / 200 * params("vertex", "size2")) ) + vertex.size <- 1 / 200 * vertex.size } ################################################################ ## Mark vertex groups diff --git a/tests/testthat/_snaps/plot/basic-graph-layout-1.svg b/tests/testthat/_snaps/plot/basic-graph-layout-1.svg index cbb18228d35..d8d1dc241fa 100644 --- a/tests/testthat/_snaps/plot/basic-graph-layout-1.svg +++ b/tests/testthat/_snaps/plot/basic-graph-layout-1.svg @@ -25,7 +25,7 @@ - + diff --git a/tests/testthat/_snaps/plot/basic-graph-layout-2.svg b/tests/testthat/_snaps/plot/basic-graph-layout-2.svg index 46111bdeb72..f0808d3e4c3 100644 --- a/tests/testthat/_snaps/plot/basic-graph-layout-2.svg +++ b/tests/testthat/_snaps/plot/basic-graph-layout-2.svg @@ -25,7 +25,7 @@ - + diff --git a/tests/testthat/_snaps/plot/basic-graph-spheres.svg b/tests/testthat/_snaps/plot/basic-graph-spheres.svg index 0d0423a8260..f35282245e1 100644 --- a/tests/testthat/_snaps/plot/basic-graph-spheres.svg +++ b/tests/testthat/_snaps/plot/basic-graph-spheres.svg @@ -25,6 +25,7 @@ + diff --git a/tests/testthat/_snaps/plot/loop-graph.svg b/tests/testthat/_snaps/plot/loop-graph.svg index 245c8ffb98f..91cf9f3730a 100644 --- a/tests/testthat/_snaps/plot/loop-graph.svg +++ b/tests/testthat/_snaps/plot/loop-graph.svg @@ -25,8 +25,8 @@ - -green + +green red