Merge branch 'main' into next

Author: krlmlr

R/attributes.R

@@ -328,7 +328,7 @@ graph_attr <- function(graph, name) {
 
   check_string(name)
 
-  .Call(R_igraph_mybracket2, graph, igraph_t_idx_attr, igraph_attr_idx_graph)[[
+  .Call(Rx_igraph_mybracket2, graph, igraph_t_idx_attr, igraph_attr_idx_graph)[[
     name
   ]]
 }
@@ -402,7 +402,7 @@ set_graph_attr <- function(graph, name, value) {
 graph.attributes <- function(graph) {
   ensure_igraph(graph)
   .Call(
-    R_igraph_mybracket2_copy,
+    Rx_igraph_mybracket2_copy,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_graph
@@ -418,7 +418,7 @@ graph.attributes <- function(graph) {
   }
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_graph,
@@ -460,7 +460,7 @@ vertex_attr <- function(graph, name, index = V(graph)) {
   check_string(name)
   myattr <-
     .Call(
-      R_igraph_mybracket2,
+      Rx_igraph_mybracket2,
       graph,
       igraph_t_idx_attr,
       igraph_attr_idx_vertex
@@ -610,7 +610,7 @@ i_set_vertex_attr <- function(
   }
 
   vattrs <- .Call(
-    R_igraph_mybracket2,
+    Rx_igraph_mybracket2,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex
@@ -644,7 +644,7 @@ i_set_vertex_attr <- function(
   }
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex,
@@ -661,7 +661,7 @@ vertex.attributes <- function(graph, index = V(graph)) {
   }
 
   res <- .Call(
-    R_igraph_mybracket2_copy,
+    Rx_igraph_mybracket2_copy,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex
@@ -721,7 +721,7 @@ set_value_at <- function(value, idx, length_out) {
   }
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex,
@@ -762,7 +762,7 @@ edge_attr <- function(graph, name, index = E(graph)) {
   } else {
     check_string(name)
     myattr <- .Call(
-      R_igraph_mybracket2,
+      Rx_igraph_mybracket2,
       graph,
       igraph_t_idx_attr,
       igraph_attr_idx_edge
@@ -866,7 +866,7 @@ i_set_edge_attr <- function(
   }
 
   eattrs <- .Call(
-    R_igraph_mybracket2,
+    Rx_igraph_mybracket2,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge
@@ -897,7 +897,7 @@ i_set_edge_attr <- function(
   }
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge,
@@ -914,7 +914,7 @@ edge.attributes <- function(graph, index = E(graph)) {
   }
 
   res <- .Call(
-    R_igraph_mybracket2_copy,
+    Rx_igraph_mybracket2_copy,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge
@@ -964,7 +964,7 @@ edge.attributes <- function(graph, index = E(graph)) {
   }
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge,
@@ -987,7 +987,7 @@ edge.attributes <- function(graph, index = E(graph)) {
 graph_attr_names <- function(graph) {
   ensure_igraph(graph)
   res <- .Call(
-    R_igraph_mybracket2_names,
+    Rx_igraph_mybracket2_names,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_graph
@@ -1016,7 +1016,7 @@ vertex_attr_names <- function(graph) {
   ensure_igraph(graph)
 
   res <- .Call(
-    R_igraph_mybracket2_names,
+    Rx_igraph_mybracket2_names,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex
@@ -1044,7 +1044,7 @@ vertex_attr_names <- function(graph) {
 edge_attr_names <- function(graph) {
   ensure_igraph(graph)
   res <- .Call(
-    R_igraph_mybracket2_names,
+    Rx_igraph_mybracket2_names,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge
@@ -1078,15 +1078,15 @@ delete_graph_attr <- function(graph, name) {
   }
 
   gattr <- .Call(
-    R_igraph_mybracket2,
+    Rx_igraph_mybracket2,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_graph
   )
   gattr[[name]] <- NULL
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_graph,
@@ -1118,15 +1118,15 @@ delete_vertex_attr <- function(graph, name) {
   }
 
   vattr <- .Call(
-    R_igraph_mybracket2,
+    Rx_igraph_mybracket2,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex
   )
   vattr[[name]] <- NULL
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex,
@@ -1158,15 +1158,15 @@ delete_edge_attr <- function(graph, name) {
   }
 
   eattr <- .Call(
-    R_igraph_mybracket2,
+    Rx_igraph_mybracket2,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge
   )
   eattr[[name]] <- NULL
 
   .Call(
-    R_igraph_mybracket2_set,
+    Rx_igraph_mybracket2_set,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_edge,

R/centrality.R

@@ -1023,7 +1023,7 @@ arpack <- function(
   }
 
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_arpack, func, extra, options, env, sym)
+  res <- .Call(Rx_igraph_arpack, func, extra, options, env, sym)
 
   if (complex) {
     rew <- arpack.unpack.complex(
@@ -1061,7 +1061,7 @@ arpack.unpack.complex <- function(vectors, values, nev) {
 
   on.exit(.Call(R_igraph_finalizer))
   # Function call
-  res <- .Call(R_igraph_arpack_unpack_complex, vectors, values, nev)
+  res <- .Call(Rx_igraph_arpack_unpack_complex, vectors, values, nev)
 
   res
 }

R/cliques.R

@@ -354,7 +354,7 @@ count_max_cliques <- function(graph, min = NULL, max = NULL, subset = NULL) {
 
   on.exit(.Call(R_igraph_finalizer))
   # Function call
-  res <- .Call(R_igraph_maximal_cliques_count, graph, subset, min, max)
+  res <- .Call(Rx_igraph_maximal_cliques_count, graph, subset, min, max)
 
   res
 }
@@ -551,7 +551,7 @@ largest_ivs <- function(graph) {
   ensure_igraph(graph)
 
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_largest_independent_vertex_sets, graph)
+  res <- .Call(Rx_igraph_largest_independent_vertex_sets, graph)
   res <- lapply(res, `+`, 1)
 
   if (igraph_opt("return.vs.es")) {
@@ -567,7 +567,7 @@ max_ivs <- function(graph) {
   ensure_igraph(graph)
 
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_maximal_independent_vertex_sets, graph)
+  res <- .Call(Rx_igraph_maximal_independent_vertex_sets, graph)
   res <- lapply(res, `+`, 1)
 
   if (igraph_opt("return.vs.es")) {
@@ -598,7 +598,7 @@ ivs_size <- function(graph) {
   ensure_igraph(graph)
 
   on.exit(.Call(R_igraph_finalizer))
-  .Call(R_igraph_independence_number, graph)
+  .Call(Rx_igraph_independence_number, graph)
 }
 
 #' @rdname ivs

R/cocitation.R

@@ -58,7 +58,7 @@ cocitation <- function(graph, v = V(graph)) {
 
   v <- as_igraph_vs(graph, v)
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_cocitation, graph, v - 1)
+  res <- .Call(Rx_igraph_cocitation, graph, v - 1)
   if (igraph_opt("add.vertex.names") && is_named(graph)) {
     rownames(res) <- vertex_attr(graph, "name", v)
     colnames(res) <- vertex_attr(graph, "name")
@@ -73,7 +73,7 @@ bibcoupling <- function(graph, v = V(graph)) {
 
   v <- as_igraph_vs(graph, v)
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_bibcoupling, graph, v - 1)
+  res <- .Call(Rx_igraph_bibcoupling, graph, v - 1)
   if (igraph_opt("add.vertex.names") && is_named(graph)) {
     rownames(res) <- vertex_attr(graph, "name", v)
     colnames(res) <- vertex_attr(graph, "name")

R/cohesive.blocks.R

@@ -357,7 +357,7 @@ cohesive_blocks <- function(graph, labels = TRUE) {
 
   on.exit(.Call(R_igraph_finalizer))
   # Function call
-  res <- .Call(R_igraph_cohesive_blocks, graph)
+  res <- .Call(Rx_igraph_cohesive_blocks, graph)
   class(res) <- "cohesiveBlocks"
   if (labels && "name" %in% vertex_attr_names(graph)) {
     res$labels <- V(graph)$name

R/community.R

@@ -1326,7 +1326,7 @@ community.to.membership2 <- function(merges, vcount, steps) {
   mode(vcount) <- "numeric"
   mode(steps) <- "numeric"
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_community_to_membership2, merges - 1, vcount, steps)
+  res <- .Call(Rx_igraph_community_to_membership2, merges - 1, vcount, steps)
   res + 1
 }
 
@@ -2121,7 +2121,7 @@ cluster_fast_greedy <- function(
 igraph.i.levc.arp <- function(externalP, externalE) {
   f <- function(v) {
     v <- as.numeric(v)
-    .Call(R_igraph_i_levc_arp, externalP, externalE, v)
+    .Call(Rx_igraph_i_levc_arp, externalP, externalE, v)
   }
   f
 }

R/conversion.R

@@ -489,7 +489,7 @@ as_adj <- function(
 as_edgelist <- function(graph, names = TRUE) {
   ensure_igraph(graph)
   on.exit(.Call(R_igraph_finalizer))
-  res <- matrix(.Call(R_igraph_get_edgelist, graph, TRUE), ncol = 2)
+  res <- matrix(.Call(Rx_igraph_get_edgelist, graph, TRUE), ncol = 2)
   res <- res + 1
   if (names && "name" %in% vertex_attr_names(graph)) {
     res <- matrix(V(graph)$name[res], ncol = 2)
@@ -699,7 +699,7 @@ as_adj_list <- function(
 
   multiple <- if (multiple) 1 else 0
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_get_adjlist, graph, mode, loops, multiple)
+  res <- .Call(Rx_igraph_get_adjlist, graph, mode, loops, multiple)
   res <- lapply(res, `+`, 1)
   if (igraph_opt("return.vs.es")) {
     res <- lapply(res, unsafe_create_vs, graph = graph, verts = V(graph))
@@ -729,7 +729,7 @@ as_adj_edge_list <- function(
   }
 
   on.exit(.Call(R_igraph_finalizer))
-  res <- .Call(R_igraph_get_adjedgelist, graph, mode, loops)
+  res <- .Call(Rx_igraph_get_adjedgelist, graph, mode, loops)
   res <- lapply(res, function(.x) E(graph)[.x + 1])
   if (is_named(graph)) {
     names(res) <- V(graph)$name
@@ -1193,7 +1193,7 @@ as_data_frame <- function(x, what = c("edges", "vertices", "both")) {
 
   if (what %in% c("vertices", "both")) {
     ver <- .Call(
-      R_igraph_mybracket2,
+      Rx_igraph_mybracket2,
       x,
       igraph_t_idx_attr,
       igraph_attr_idx_vertex
@@ -1211,7 +1211,7 @@ as_data_frame <- function(x, what = c("edges", "vertices", "both")) {
     el <- as_edgelist(x)
     edg <- c(
       list(from = el[, 1], to = el[, 2]),
-      .Call(R_igraph_mybracket2, x, igraph_t_idx_attr, igraph_attr_idx_edge)
+      .Call(Rx_igraph_mybracket2, x, igraph_t_idx_attr, igraph_attr_idx_edge)
     )
     class(edg) <- "data.frame"
     rownames(edg) <- seq_len(ecount(x))
@@ -1318,7 +1318,7 @@ as_long_data_frame <- function(graph) {
   ensure_igraph(graph)
 
   ver <- .Call(
-    R_igraph_mybracket2,
+    Rx_igraph_mybracket2,
     graph,
     igraph_t_idx_attr,
     igraph_attr_idx_vertex
@@ -1335,7 +1335,7 @@ as_long_data_frame <- function(graph) {
   edg <- c(
     list(from = el[, 1]),
     list(to = el[, 2]),
-    .Call(R_igraph_mybracket2, graph, igraph_t_idx_attr, igraph_attr_idx_edge)
+    .Call(Rx_igraph_mybracket2, graph, igraph_t_idx_attr, igraph_attr_idx_edge)
   )
   class(edg) <- "data.frame"
   rownames(edg) <- seq_len(ecount(graph))