From 61e49a77dbda1e9603c6b57646e20ec6738b69b0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= Date: Fri, 21 Aug 2026 12:17:56 +0200 Subject: [PATCH 1/5] chore: seq --- R/glet.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/glet.R b/R/glet.R index be7843b6c28..28917e03e63 100644 --- a/R/glet.R +++ b/R/glet.R @@ -123,7 +123,7 @@ graphlets.candidate.basis <- function(graph, weights = NULL) { #' gl <- graphlets(g, niter = 1000) #' #' ## Plot graphlets -#' for (i in 1:length(gl$cliques)) { +#' for (i in seq_along(gl$cliques)) { #' sel <- gl$cliques[[i]] #' V(g)$color <- "white" #' V(g)[sel]$color <- "#E495A5" From 6c003a6fadcaf10eb64571ba94ce35323b37a534 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= Date: Fri, 21 Aug 2026 12:18:09 +0200 Subject: [PATCH 2/5] chore: lengths --- R/operators.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/operators.R b/R/operators.R index 7b558ebcd61..e16c9378372 100644 --- a/R/operators.R +++ b/R/operators.R @@ -229,7 +229,7 @@ apply_attr_combiner <- function(comb, vals, type) { x <- x[!is.na(x)] apply_one_combiner(comb, x) }) - if (all(vapply(out, length, integer(1)) == 1L)) { + if (all(lengths(out) == 1L)) { unlist(out) } else { out From 131e0a886c8253b1d846df28d2985416259ae2f6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= Date: Wed, 26 Aug 2026 12:24:44 +0200 Subject: [PATCH 3/5] chore: rm useless comments via `outdated_suppression` --- R/print.R | 1 - tests/testthat/test-attributes.R | 5 ----- tests/testthat/test-iterators.R | 1 - tests/testthat/test-plot.shapes.R | 1 - tests/testthat/test-structural-properties.R | 2 +- tests/testthat/test-weakref.R | 2 -- 6 files changed, 1 insertion(+), 11 deletions(-) diff --git a/R/print.R b/R/print.R index 1c2afaf9942..9c383aa4cea 100644 --- a/R/print.R +++ b/R/print.R @@ -373,7 +373,6 @@ print_edge_detail <- function(graph, edges) { if (!is.null(x)) { arrow <- c("--", "->")[is_directed(x) + 1] - # jarl-ignore unused_object: then assigned to with <<- can_max <- NA el <- NA diff --git a/tests/testthat/test-attributes.R b/tests/testthat/test-attributes.R index f46f03db367..2568534cb9c 100644 --- a/tests/testthat/test-attributes.R +++ b/tests/testthat/test-attributes.R @@ -11,17 +11,14 @@ test_that("bracketing works (not changing attribute of similar graphs)", { g <- make_graph(c(1, 2, 1, 3, 3, 4)) g <- set_vertex_attr(g, name = "weight", value = 1:vcount(g)) - # jarl-ignore unused_object: test design graph2 <- set_vertex_attr(g, name = "weight", value = rep(1, vcount(g))) expect_equal(vertex_attr(g, name = "weight"), 1:4) g <- set_edge_attr(g, name = "weight", value = 1:ecount(g)) - # jarl-ignore unused_object: test design graph2 <- set_edge_attr(g, name = "weight", value = rep(1, ecount(g))) expect_equal(edge_attr(g, name = "weight"), 1:3) g <- set_graph_attr(g, name = "name", "foo") - # jarl-ignore unused_object: test design graph2 <- set_graph_attr(g, name = "name", "foobar") expect_equal(graph_attr(g, name = "name"), "foo") }) @@ -41,7 +38,6 @@ test_that("bracketing works with a function (not changing attribute of similar g graph2 } - # jarl-ignore unused_object: test design g2 <- copy_test(g) expect_equal(vertex_attr(g, name = "weight"), 1:4) expect_equal(edge_attr(g, name = "weight"), 1:3) @@ -61,7 +57,6 @@ test_that("bracketing works with shortcuts (not changing attribute of similar gr graph$name <- "foobar" } - # jarl-ignore unused_object: test design g_copy <- copy_test(g) expect_equal(vertex_attr(g, name = "weight"), 1:4) expect_equal(edge_attr(g, name = "weight"), 1:3) diff --git a/tests/testthat/test-iterators.R b/tests/testthat/test-iterators.R index 59a6a274fee..b8940921c94 100644 --- a/tests/testthat/test-iterators.R +++ b/tests/testthat/test-iterators.R @@ -244,7 +244,6 @@ test_that("vs/es refers to the original graph", { vs <- V(ring1) es <- E(ring1) - # jarl-ignore unused_object: test design ring1 <- ring1 + 4 expect_identical(get_vs_graph(vs), ring2) diff --git a/tests/testthat/test-plot.shapes.R b/tests/testthat/test-plot.shapes.R index a424f96b7cd..9cb83f0596a 100644 --- a/tests/testthat/test-plot.shapes.R +++ b/tests/testthat/test-plot.shapes.R @@ -1,4 +1,3 @@ -# jarl-ignore-file implicit_assignment: just the way it works test_that("shapes() lists all available shapes", { all_shapes <- shapes() expect_type(all_shapes, "character") diff --git a/tests/testthat/test-structural-properties.R b/tests/testthat/test-structural-properties.R index 6c4e5752024..594d7ec0bf3 100644 --- a/tests/testthat/test-structural-properties.R +++ b/tests/testthat/test-structural-properties.R @@ -198,7 +198,7 @@ test_that("BFS callback does not blow up when an invalid value is returned", { }) test_that("BFS callback does not blow up when an error is raised within the callback", { - # jarl-ignore unreachable_code: + # jarl-ignore unreachable_code: test design callback <- function(graph, data, extra) { cli::cli_abort("test") FALSE diff --git a/tests/testthat/test-weakref.R b/tests/testthat/test-weakref.R index 8d4da9b23b2..de2a330f50c 100644 --- a/tests/testthat/test-weakref.R +++ b/tests/testthat/test-weakref.R @@ -27,9 +27,7 @@ test_that("weak reference finalizer is called", { value <- "foobar" hello <- "" fin <- function(env) hello <<- "world" - # jarl-ignore unused_object: test design vs <- make_weak_ref(key = g, value = value, finalizer = fin) - rm(g) gc() From eb0054245ef74032217b2f32af7bf6c514c6a6a2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= Date: Wed, 26 Aug 2026 12:27:59 +0200 Subject: [PATCH 4/5] chore: jarl ignore missing argument --- tests/testthat/test-migration-fixture.R | 1 + 1 file changed, 1 insertion(+) diff --git a/tests/testthat/test-migration-fixture.R b/tests/testthat/test-migration-fixture.R index 8746f9bd7be..7d9f4f82d45 100644 --- a/tests/testthat/test-migration-fixture.R +++ b/tests/testthat/test-migration-fixture.R @@ -1,3 +1,4 @@ +# jarl-ignore-file missing_argument: this is the test's point # Tests for the in-place argument-migration generator (tools/generate-migrations.R) # via the fixture `migration_fixture()` (R/migration-fixture.R). Old signature # f(graph, n, weight, kind, directed); new f(graph, n, ..., weights, type, From f14cd0912a6551df6b6006951f34ec1975ef1d99 Mon Sep 17 00:00:00 2001 From: maelle Date: Thu, 3 Sep 2026 11:39:37 +0000 Subject: [PATCH 5/5] chore: Auto-update from GitHub Actions Run: https://github.com/igraph/rigraph/actions/runs/33750065051 --- man/graphlet_basis.Rd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/man/graphlet_basis.Rd b/man/graphlet_basis.Rd index a6e97086249..88ce6849e76 100644 --- a/man/graphlet_basis.Rd +++ b/man/graphlet_basis.Rd @@ -102,7 +102,7 @@ plot(g, layout = co) gl <- graphlets(g, niter = 1000) ## Plot graphlets -for (i in 1:length(gl$cliques)) { +for (i in seq_along(gl$cliques)) { sel <- gl$cliques[[i]] V(g)$color <- "white" V(g)[sel]$color <- "#E495A5"