igraph_match_arg

Author: krlmlr

NEWS.md

@@ -150,7 +150,7 @@
 
 - Rm useless error message (#1998).
 
-- Improve `igraph.match.arg()` (#1996).
+- Improve `igraph_match_arg()` (#1996).
 
 
 # igraph 2.1.4.9068
@@ -1871,7 +1871,7 @@ See <https://github.com/igraph/rigraph/blob/05973441b83decdeab8cc9c500a642c00b92
 
 - Breaking change: remove tkigraph from {igraph} proper (#1474).
 - Breaking change: Hard-deprecate `get.edge()` and `layout.grid.3d()` which have been deprecated for 10 years (#1398).
-- Breaking change: use `rlang::arg_match()` in `igraph.match.arg()` (#1165).
+- Breaking change: use `rlang::arg_match()` in `igraph_match_arg()` (#1165).
 
 ### In-progress deprecations
 

R/adjacency.R

@@ -290,7 +290,7 @@ graph_from_adjacency_matrix <- function(
   add.rownames = NA
 ) {
   ensure_no_na(adjmatrix, "adjacency matrix")
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
 
   if (!is.matrix(adjmatrix) && !inherits(adjmatrix, "Matrix")) {
     lifecycle::deprecate_soft(
@@ -415,7 +415,7 @@ graph.adjacency.dense <- function(
   if (is.logical(diag)) {
     diag <- ifelse(diag, "once", "ignore")
   }
-  diag <- igraph.match.arg(diag)
+  diag <- igraph_match_arg(diag)
   diag <- switch(diag, "ignore" = 0L, "twice" = 1L, "once" = 2L)
 
   if (nrow(adjmatrix) != ncol(adjmatrix)) {

R/bipartite.R

@@ -179,7 +179,7 @@ bipartite_projection <- function(
     probe1 <- -1
   }
   which <- switch(
-    igraph.match.arg(which),
+    igraph_match_arg(which),
     "both" = 0L,
     "false" = 1L,
     "true" = 2L

R/centrality.R

@@ -593,7 +593,7 @@ closeness <- function(
 
   vids <- as_igraph_vs(graph, vids)
   mode <- switch(
-    igraph.match.arg(mode),
+    igraph_match_arg(mode),
     "out" = 1,
     "in" = 2,
     "all" = 3,
@@ -1371,7 +1371,7 @@ eigen_centrality <- function(
     }
   }
 
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
 
   if (lifecycle::is_present(directed)) {
     if (directed) {

R/centralization.R

@@ -690,7 +690,7 @@ centr_eigen <- function(
     )
   }
 
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
 
   if (lifecycle::is_present(directed)) {
     if (directed) {
@@ -766,7 +766,7 @@ centr_eigen_tmax <- function(
       The argument will be removed in the future."
     )
   }
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
 
   if (lifecycle::is_present(directed)) {
     if (directed) {

R/community.R

@@ -1485,10 +1485,10 @@ cluster_spinglass <- function(
     weights <- NULL
   }
 
-  update.rule <- igraph.match.arg(update.rule)
+  update.rule <- igraph_match_arg(update.rule)
   update.rule <- switch(update.rule, "simple" = 0, "random" = 0, "config" = 1)
   implementation <- switch(
-    igraph.match.arg(implementation),
+    igraph_match_arg(implementation),
     "orig" = 0,
     "neg" = 1
   )
@@ -1662,7 +1662,7 @@ cluster_leiden <- function(
   ensure_igraph(graph)
 
   # Parse objective function argument
-  objective_function <- igraph.match.arg(objective_function)
+  objective_function <- igraph_match_arg(objective_function)
   objective_function <- switch(objective_function, "cpm" = 0, "modularity" = 1)
 
   # Parse edge weights argument
@@ -2419,8 +2419,8 @@ cluster_label_prop0 <- function(
   ensure_igraph(graph)
 
   # Necessary because evaluated later
-  mode <- igraph.match.arg(mode)
-  lpa_variant <- igraph.match.arg(lpa_variant)
+  mode <- igraph_match_arg(mode)
+  lpa_variant <- igraph_match_arg(lpa_variant)
 
   # Function call
   membership <- community_label_propagation_impl(
@@ -2828,7 +2828,7 @@ plot_dendrogram.communities <- function(
   use.modularity = FALSE,
   palette = categorical_pal(8)
 ) {
-  mode <- igraph.match.arg(mode, c("auto", "phylo", "hclust", "dendrogram"))
+  mode <- igraph_match_arg(mode, c("auto", "phylo", "hclust", "dendrogram"))
 
   old_palette <- palette(palette)
   on.exit(palette(old_palette), add = TRUE)
@@ -3062,7 +3062,7 @@ i_compare <- function(
   } else {
     as.numeric(as.factor(comm2))
   }
-  method <- igraph.match.arg(method)
+  method <- igraph_match_arg(method)
   res <- compare_communities_impl(
     comm1 = comm1,
     comm2 = comm2,

R/components.R

@@ -203,7 +203,7 @@ decompose <- function(
   min.vertices = 0
 ) {
   ensure_igraph(graph)
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
   mode <- switch(mode, "weak" = 1L, "strong" = 2L)
 
   if (is.na(max.comps)) {

R/conversion.R

@@ -229,7 +229,7 @@ get.adjacency.dense <- function(
 ) {
   ensure_igraph(graph)
 
-  type <- igraph.match.arg(type)
+  type <- igraph_match_arg(type)
 
   if (is.logical(loops)) {
     loops <- ifelse(loops, "once", "ignore")
@@ -242,7 +242,7 @@ get.adjacency.dense <- function(
       )
     )
   }
-  loops <- igraph.match.arg(loops)
+  loops <- igraph_match_arg(loops)
   loops <- switch(loops, "ignore" = 0L, "twice" = 1L, "once" = 2L)
 
   if (!is.null(weights)) {
@@ -285,7 +285,7 @@ get.adjacency.sparse <- function(
 ) {
   ensure_igraph(graph)
 
-  type <- igraph.match.arg(type)
+  type <- igraph_match_arg(type)
 
   vc <- vcount(graph)
 
@@ -624,7 +624,7 @@ as_undirected <- function(
 ) {
   # Argument checks
   ensure_igraph(graph)
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
 
   # Function call
   res <- to_undirected_impl(
@@ -685,9 +685,9 @@ as_adj_list <- function(
 ) {
   ensure_igraph(graph)
 
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
   mode <- as.numeric(switch(mode, "out" = 1, "in" = 2, "all" = 3, "total" = 3))
-  loops <- igraph.match.arg(loops)
+  loops <- igraph_match_arg(loops)
   loops <- as.numeric(switch(loops, "ignore" = 0, "twice" = 1, "once" = 2))
 
   if (is_directed(graph) && loops == 1) {
@@ -716,9 +716,9 @@ as_adj_edge_list <- function(
 ) {
   ensure_igraph(graph)
 
-  mode <- igraph.match.arg(mode)
+  mode <- igraph_match_arg(mode)
   mode <- as.numeric(switch(mode, "out" = 1, "in" = 2, "all" = 3, "total" = 3))
-  loops <- igraph.match.arg(loops)
+  loops <- igraph_match_arg(loops)
   loops <- as.numeric(switch(loops, "ignore" = 0, "twice" = 1, "once" = 2))
 
   if (is_directed(graph) && loops == 1) {
@@ -1186,7 +1186,7 @@ as_incidence_matrix <- function(...) {
 #' @export
 as_data_frame <- function(x, what = c("edges", "vertices", "both")) {
   ensure_igraph(x)
-  what <- igraph.match.arg(what)
+  what <- igraph_match_arg(what)
 
   if (what %in% c("vertices", "both")) {
     ver <- .Call(

R/epi.R

@@ -68,7 +68,7 @@ median.sir <- function(x, na.rm = FALSE, ...) {
 #' @export
 quantile.sir <- function(x, comp = c("NI", "NS", "NR"), prob, ...) {
   sir <- x
-  comp <- toupper(igraph.match.arg(comp))
+  comp <- toupper(igraph_match_arg(comp))
   times <- unlist(sapply(sir, "[[", "times"))
   big.N <- unlist(sapply(sir, function(x) {
     x[[comp]]
@@ -159,7 +159,7 @@ plot.sir <- function(
 ) {
   sir <- x
 
-  comp <- toupper(igraph.match.arg(comp))
+  comp <- toupper(igraph_match_arg(comp))
   if (!all(quantiles >= 0 & quantiles <= 1)) {
     cli::cli_abort("All {.arg quantiles} should be in [0,1].")
   }

R/fit.R

@@ -190,7 +190,7 @@ fit_power_law <- function(
   p.precision = NULL,
   ...
 ) {
-  implementation <- igraph.match.arg(implementation)
+  implementation <- igraph_match_arg(implementation)
 
   if (implementation == "r.mle") {
     if (isTRUE(p.value)) {