From c5bdb37eb45fa9c24bb4d0c16a5679c9fa7ab965 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Fri, 3 Jul 2026 15:40:36 +0200
Subject: [PATCH] chore: rm two unused lines

---
 R/tkplot.R | 2 --
 1 file changed, 2 deletions(-)

diff --git a/R/tkplot.R b/R/tkplot.R
index feb47ed981b..15533d9d60a 100644
--- a/R/tkplot.R
+++ b/R/tkplot.R
@@ -594,7 +594,6 @@ tk_center <- function(tkp.id) {
   tkp <- .tkplot.get(tkp.id)
   width <- as.numeric(tcltk::tkwinfo("width", tkp$canvas))
   height <- as.numeric(tcltk::tkwinfo("height", tkp$canvas))
-  coords <- .tkplot.get(tkp.id, "coords")
   canvas.center.x <- width / 2
   canvas.center.y <- height / 2
   coords <- .tkplot.get(tkp.id, "coords")
@@ -1091,7 +1090,6 @@ tk_canvas <- function(tkp.id) {
 # Creates all edges
 .tkplot.create.edges <- function(tkp.id) {
   tkp <- .tkplot.get(tkp.id)
-  n <- ecount(tkp$graph)
   edgematrix <- as_edgelist(tkp$graph, names = FALSE)
   mapply(
     function(from, to, id) .tkplot.create.edge(tkp.id, from, to, id),