From 72605c3cc5b01d6f1779d6ce93be6c8dda03209f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= Date: Fri, 3 Jul 2026 15:58:07 +0200 Subject: [PATCH] chore: rm unused objects in plot scripts --- R/plot.R | 6 +----- R/plot.shapes.R | 1 - 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/R/plot.R b/R/plot.R index 1b0f390e6c7..053045e8099 100644 --- a/R/plot.R +++ b/R/plot.R @@ -229,7 +229,7 @@ plot.igraph <- function( # in two ways: (1) On the relative size of the axes, and (2) on the # relative size of vertex.size/vertex.size2 - scalefactor <- parusr <- par("usr") + parusr <- par("usr") scalefactor <- (parusr[2] - parusr[1]) / (parusr[4] - parusr[3]) if ("vertex.size2" %in% names(newdots)) { # If the user provided -vertex.size2- @@ -569,9 +569,6 @@ plot.igraph <- function( la_dyn <- numeric(length(loops.v)) narrowing <- numeric(length(loops.v)) - loop_table <- table(loops.v) - loop_idx <- ave(seq_along(loops.v), loops.v, FUN = seq_along) - for (v in unique(loops.v)) { idx <- which(loops.v == v) n_loops <- length(idx) @@ -1588,7 +1585,6 @@ rglplot.igraph <- function(x, ...) { params <- i.parse.plot.params(graph, list(...)) labels <- params("vertex", "label") label.color <- params("vertex", "label.color") - label.font <- params("vertex", "label.font") label.degree <- params("vertex", "label.degree") label.dist <- params("vertex", "label.dist") vertex.color <- params("vertex", "color") diff --git a/R/plot.shapes.R b/R/plot.shapes.R index a5b5e06529e..79a1196f3ba 100644 --- a/R/plot.shapes.R +++ b/R/plot.shapes.R @@ -1241,7 +1241,6 @@ mypie <- function( } p } - vertex.color <- getparam("color") vertex.frame.color <- rep( getparam("frame.color"),