From 4477299fb321fd10647371732aa61d902b264af2 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/2] 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 d0a4a391e760235226209fa8e24073e86755ba2a 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/2] 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