From fc4844680a2393e30f5094a793d95311a0f6d964 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Sat, 25 Oct 2025 15:29:07 +0000
Subject: [PATCH 1/3] Initial plan


From ed7809787e779e4e9399300db42a1a6a181ffc0a Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Sat, 25 Oct 2025 15:35:19 +0000
Subject: [PATCH 2/3] Replace _impl aliases with explicit wrapper functions

Co-authored-by: krlmlr <1741643+krlmlr@users.noreply.github.com>
---
 R/centrality.R | 42 ++++++++++++++++++++++++++++++++++++++----
 1 file changed, 38 insertions(+), 4 deletions(-)

diff --git a/R/centrality.R b/R/centrality.R
index 3c568b8f8ae..0df767e1375 100644
--- a/R/centrality.R
+++ b/R/centrality.R
@@ -1436,7 +1436,15 @@ eigen_centrality <- function(
 #' @family centrality
 #' @export
 #' @cdocs igraph_strength
-strength <- strength_impl
+strength <- function(graph, vids = V(graph), mode = c("all", "out", "in", "total"), loops = TRUE, weights = NULL) {
+  strength_impl(
+    graph = graph,
+    vids = vids,
+    mode = mode,
+    loops = loops,
+    weights = weights
+  )
+}
 
 
 #' Graph diversity
@@ -1480,7 +1488,13 @@ strength <- strength_impl
 #' @family centrality
 #' @export
 #' @cdocs igraph_diversity
-diversity <- diversity_impl
+diversity <- function(graph, weights = NULL, vids = V(graph)) {
+  diversity_impl(
+    graph = graph,
+    weights = weights,
+    vids = vids
+  )
+}
 
 
 #' Kleinberg's hub and authority centrality scores.
@@ -1726,7 +1740,18 @@ hub_score <- function(
 #' @family centrality
 #' @export
 #' @cdocs igraph_personalized_pagerank
-page_rank <- personalized_pagerank_impl
+page_rank <- function(graph, algo = c("prpack", "arpack"), vids = V(graph), directed = TRUE, damping = 0.85, personalized = NULL, weights = NULL, options = NULL) {
+  personalized_pagerank_impl(
+    graph = graph,
+    algo = algo,
+    vids = vids,
+    directed = directed,
+    damping = damping,
+    personalized = personalized,
+    weights = weights,
+    options = options
+  )
+}
 
 #' Harmonic centrality of vertices
 #'
@@ -1774,7 +1799,16 @@ page_rank <- personalized_pagerank_impl
 #' harmonic_centrality(g %du% make_full_graph(5), mode = "all")
 #'
 #' @cdocs igraph_harmonic_centrality_cutoff
-harmonic_centrality <- harmonic_centrality_cutoff_impl
+harmonic_centrality <- function(graph, vids = V(graph), mode = c("out", "in", "all", "total"), weights = NULL, normalized = FALSE, cutoff = -1) {
+  harmonic_centrality_cutoff_impl(
+    graph = graph,
+    vids = vids,
+    mode = mode,
+    weights = weights,
+    normalized = normalized,
+    cutoff = cutoff
+  )
+}
 
 
 bonpow.dense <- function(

From d9b17016dcc4afd6ea52b869944cb1075afccb7c Mon Sep 17 00:00:00 2001
From: krlmlr <krlmlr@users.noreply.github.com>
Date: Sat, 25 Oct 2025 16:33:38 +0000
Subject: [PATCH 3/3] chore: Auto-update from GitHub Actions

Run: https://github.com/igraph/rigraph/actions/runs/18805576712
---
 R/centrality.R | 28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

diff --git a/R/centrality.R b/R/centrality.R
index 0df767e1375..54f9c4bbb00 100644
--- a/R/centrality.R
+++ b/R/centrality.R
@@ -1436,7 +1436,13 @@ eigen_centrality <- function(
 #' @family centrality
 #' @export
 #' @cdocs igraph_strength
-strength <- function(graph, vids = V(graph), mode = c("all", "out", "in", "total"), loops = TRUE, weights = NULL) {
+strength <- function(
+  graph,
+  vids = V(graph),
+  mode = c("all", "out", "in", "total"),
+  loops = TRUE,
+  weights = NULL
+) {
   strength_impl(
     graph = graph,
     vids = vids,
@@ -1740,7 +1746,16 @@ hub_score <- function(
 #' @family centrality
 #' @export
 #' @cdocs igraph_personalized_pagerank
-page_rank <- function(graph, algo = c("prpack", "arpack"), vids = V(graph), directed = TRUE, damping = 0.85, personalized = NULL, weights = NULL, options = NULL) {
+page_rank <- function(
+  graph,
+  algo = c("prpack", "arpack"),
+  vids = V(graph),
+  directed = TRUE,
+  damping = 0.85,
+  personalized = NULL,
+  weights = NULL,
+  options = NULL
+) {
   personalized_pagerank_impl(
     graph = graph,
     algo = algo,
@@ -1799,7 +1814,14 @@ page_rank <- function(graph, algo = c("prpack", "arpack"), vids = V(graph), dire
 #' harmonic_centrality(g %du% make_full_graph(5), mode = "all")
 #'
 #' @cdocs igraph_harmonic_centrality_cutoff
-harmonic_centrality <- function(graph, vids = V(graph), mode = c("out", "in", "all", "total"), weights = NULL, normalized = FALSE, cutoff = -1) {
+harmonic_centrality <- function(
+  graph,
+  vids = V(graph),
+  mode = c("out", "in", "all", "total"),
+  weights = NULL,
+  normalized = FALSE,
+  cutoff = -1
+) {
   harmonic_centrality_cutoff_impl(
     graph = graph,
     vids = vids,