chore: Ensure args are named

Author: krlmlr

R/community.R

@@ -3055,7 +3055,11 @@ i_compare <- function(
     as.numeric(as.factor(comm2))
   }
   method <- igraph.match.arg(method)
-  res <- compare_communities_impl(comm1 = comm1, comm2 = comm2, method = method)
+  res <- compare_communities_impl(
+    comm1 = comm1,
+    comm2 = comm2,
+    method = method
+  )
   res
 }
 
@@ -3103,7 +3107,10 @@ split_join_distance <- function(comm1, comm2) {
   } else {
     as.numeric(comm2)
   }
-  res <- split_join_distance_impl(comm1 = comm1, comm2 = comm2)
+  res <- split_join_distance_impl(
+    comm1 = comm1,
+    comm2 = comm2
+  )
   unlist(res)
 }
 

R/flow.R

@@ -909,7 +909,11 @@ dominator_tree <- function(graph, root, mode = c("out", "in", "all", "total")) {
   mode <- igraph.match.arg(mode)
 
   # Function call
-  res <- dominator_tree_impl(graph = graph, root = root, mode = mode)
+  res <- dominator_tree_impl(
+    graph = graph,
+    root = root,
+    mode = mode
+  )
   if (igraph_opt("return.vs.es")) {
     res$leftout <- create_vs(graph, res$leftout)
   }

R/hrg.R

@@ -252,7 +252,12 @@ fit_hrg <- function(graph, hrg = NULL, start = FALSE, steps = 0) {
   steps <- as.numeric(steps)
 
   # Function call
-  res <- hrg_fit_impl(graph = graph, hrg = hrg, start = start, steps = steps)
+  res <- hrg_fit_impl(
+    graph = graph,
+    hrg = hrg,
+    start = start,
+    steps = steps
+  )
 
   if (igraph_opt("add.vertex.names") && is_named(graph)) {
     res$names <- V(graph)$name

R/interface.R

@@ -733,5 +733,7 @@ incident_edges <- function(graph, v, mode = c("out", "in", "all", "total")) {
 #' # Result should be the same
 #' is_simple(g)
 invalidate_cache <- function(graph) {
-  invalidate_cache_impl(graph)
+  invalidate_cache_impl(
+    graph = graph
+  )
 }

R/make.R

@@ -267,7 +267,9 @@ line.graph <- function(graph) {
   lifecycle::deprecate_soft("2.1.0", "line.graph()", "make_line_graph()")
   ensure_igraph(graph)
 
-  res <- linegraph_impl(graph = graph)
+  res <- linegraph_impl(
+    graph = graph
+  )
   if (igraph_opt("add.params")) {
     res$name <- "Line graph"
   }
@@ -472,7 +474,10 @@ graph.lattice <- function(
 graph.kautz <- function(m, n) {
   # nocov start
   lifecycle::deprecate_soft("2.1.0", "graph.kautz()", "make_kautz_graph()")
-  res <- kautz_impl(m = m, n = n)
+  res <- kautz_impl(
+    m = m,
+    n = n
+  )
   if (igraph_opt("add.params")) {
     res$name <- sprintf("Kautz graph %i-%i", m, n)
     res$m <- m
@@ -499,7 +504,10 @@ graph.full.citation <- function(n, directed = TRUE) {
     "make_full_citation_graph()"
   )
   # Function call
-  res <- full_citation_impl(n = n, directed = directed)
+  res <- full_citation_impl(
+    n = n,
+    directed = directed
+  )
 
   res <- set_graph_attr(res, "name", "Full citation graph")
   res
@@ -538,7 +546,12 @@ graph.full.bipartite <- function(
     "total" = 3
   )
 
-  res <- full_bipartite_impl(n1 = n1, n2 = n2, directed = directed, mode = mode)
+  res <- full_bipartite_impl(
+    n1 = n1,
+    n2 = n2,
+    directed = directed,
+    mode = mode
+  )
   if (igraph_opt("add.params")) {
     res$graph$name <- "Full bipartite graph"
     res$n1 <- n1
@@ -637,7 +650,10 @@ graph.empty <- function(n = 0, directed = TRUE) {
   # nocov start
   lifecycle::deprecate_soft("2.1.0", "graph.empty()", "make_empty_graph()")
   # Function call
-  res <- empty_impl(n = n, directed = directed)
+  res <- empty_impl(
+    n = n,
+    directed = directed
+  )
 
   res
 } # nocov end
@@ -659,7 +675,10 @@ graph.de.bruijn <- function(m, n) {
     "graph.de.bruijn()",
     "make_de_bruijn_graph()"
   )
-  res <- de_bruijn_impl(m = m, n = n)
+  res <- de_bruijn_impl(
+    m = m,
+    n = n
+  )
   if (igraph_opt("add.params")) {
     res$name <- sprintf("De-Bruijn graph %i-%i", m, n)
     res$m <- m
@@ -729,7 +748,9 @@ graph.bipartite <- function(types, edges, directed = FALSE) {
 graph.atlas <- function(n) {
   # nocov start
   lifecycle::deprecate_soft("2.1.0", "graph.atlas()", "graph_from_atlas()")
-  res <- atlas_impl(number = n)
+  res <- atlas_impl(
+    number = n
+  )
   if (igraph_opt("add.params")) {
     res$name <- sprintf("Graph from the Atlas #%i", n)
     res$n <- n
@@ -2199,7 +2220,9 @@ from_prufer <- function(...) constructor_spec(make_from_prufer, ...)
 #' graph_from_atlas(sample(0:1252, 1))
 #' graph_from_atlas(sample(0:1252, 1))
 graph_from_atlas <- function(n) {
-  res <- atlas_impl(number = n)
+  res <- atlas_impl(
+    number = n
+  )
   if (igraph_opt("add.params")) {
     res$name <- sprintf("Graph from the Atlas #%i", n)
     res$n <- n
@@ -2295,7 +2318,9 @@ chordal_ring <- function(...) constructor_spec(make_chordal_ring, ...)
 make_line_graph <- function(graph) {
   ensure_igraph(graph)
 
-  res <- linegraph_impl(graph = graph)
+  res <- linegraph_impl(
+    graph = graph
+  )
   if (igraph_opt("add.params")) {
     res$name <- "Line graph"
   }
@@ -2341,7 +2366,10 @@ line_graph <- function(...) constructor_spec(make_line_graph, ...)
 #' make_de_bruijn_graph(2, 2)
 #' make_line_graph(g)
 make_de_bruijn_graph <- function(m, n) {
-  res <- de_bruijn_impl(m = m, n = n)
+  res <- de_bruijn_impl(
+    m = m,
+    n = n
+  )
   if (igraph_opt("add.params")) {
     res$name <- sprintf("De-Bruijn graph %i-%i", m, n)
     res$m <- m
@@ -2385,7 +2413,10 @@ de_bruijn_graph <- function(...) constructor_spec(make_de_bruijn_graph, ...)
 #' make_kautz_graph(2, 2)
 #'
 make_kautz_graph <- function(m, n) {
-  res <- kautz_impl(m = m, n = n)
+  res <- kautz_impl(
+    m = m,
+    n = n
+  )
   if (igraph_opt("add.params")) {
     res$name <- sprintf("Kautz graph %i-%i", m, n)
     res$m <- m
@@ -2447,7 +2478,12 @@ make_full_bipartite_graph <- function(
     "total" = 3
   )
 
-  res <- full_bipartite_impl(n1 = n1, n2 = n2, directed = directed, mode = mode)
+  res <- full_bipartite_impl(
+    n1 = n1,
+    n2 = n2,
+    directed = directed,
+    mode = mode
+  )
   if (igraph_opt("add.params")) {
     res$graph$name <- "Full bipartite graph"
     res$n1 <- n1
@@ -2562,7 +2598,10 @@ bipartite_graph <- function(...) constructor_spec(make_bipartite_graph, ...)
 #' print_all(make_full_citation_graph(10))
 make_full_citation_graph <- function(n, directed = TRUE) {
   # Function call
-  res <- full_citation_impl(n = n, directed = directed)
+  res <- full_citation_impl(
+    n = n,
+    directed = directed
+  )
 
   res <- set_graph_attr(res, "name", "Full citation graph")
   res

R/sgm.R

@@ -24,7 +24,11 @@ solve_LSAP <- function(x, maximum = FALSE) {
   if (maximum) {
     x <- max(x) - x
   }
-  out <- solve_lsap_impl(c = x, n = as.numeric(nc)) + 1L
+  out <- solve_lsap_impl(
+    c = x,
+    n = as.numeric(nc)
+  ) +
+    1L
   out[seq_len(nr)]
 }
 

R/simple.R

@@ -119,7 +119,9 @@ simplify_and_colorize <- function(graph) {
   ensure_igraph(graph)
 
   # Function call
-  res <- simplify_and_colorize_impl(graph = graph)
+  res <- simplify_and_colorize_impl(
+    graph = graph
+  )
 
   V(res$res)$color <- res$vertex_color
   E(res$res)$color <- res$edge_color

R/structural-properties.R

@@ -860,7 +860,7 @@ mean_distance <- function(
   details = FALSE
 ) {
   average_path_length_dijkstra_impl(
-    graph,
+    graph = graph,
     weights = weights,
     directed = directed,
     unconnected = unconnected,
@@ -944,7 +944,7 @@ max_degree <- function(
   loops = TRUE
 ) {
   maxdegree_impl(
-    graph,
+    graph = graph,
     v = v,
     mode = mode,
     loops = loops
@@ -1585,7 +1585,11 @@ induced_subgraph <- function(
   impl <- igraph.match.arg(impl)
 
   # Function call
-  res <- induced_subgraph_impl(graph = graph, vids = vids, impl = impl)
+  res <- induced_subgraph_impl(
+    graph = graph,
+    vids = vids,
+    impl = impl
+  )
 
   res
 }
@@ -1796,7 +1800,10 @@ transitivity <- function(
   isolates <- igraph.match.arg(isolates)
 
   if (type == 0) {
-    transitivity_undirected_impl(graph, isolates)
+    transitivity_undirected_impl(
+      graph = graph,
+      mode = isolates
+    )
   } else if (type == 1) {
     isolates_num <- as.double(switch(isolates, "nan" = 0, "zero" = 1))
     if (is.null(vids)) {
@@ -1810,30 +1817,53 @@ transitivity <- function(
       }
       res
     } else {
-      res <- transitivity_local_undirected_impl(graph, vids, isolates)
+      res <- transitivity_local_undirected_impl(
+        graph = graph,
+        vids = vids,
+        mode = isolates
+      )
       if (igraph_opt("add.vertex.names") && is_named(graph)) {
         vids_indices <- as_igraph_vs(graph, vids)
         names(res) <- V(graph)$name[vids_indices]
       }
       res
     }
   } else if (type == 2) {
-    transitivity_avglocal_undirected_impl(graph, isolates)
+    transitivity_avglocal_undirected_impl(
+      graph = graph,
+      mode = isolates
+    )
   } else if (type == 3) {
     # Save original vids for naming if needed
     vids_for_names <- if (is.null(vids)) V(graph) else vids
 
     res <- if (is.null(weights)) {
       if (is.null(vids)) {
-        transitivity_local_undirected_impl(graph, mode = isolates)
+        transitivity_local_undirected_impl(
+          graph = graph,
+          mode = isolates
+        )
       } else {
-        transitivity_local_undirected_impl(graph, vids, isolates)
+        transitivity_local_undirected_impl(
+          graph = graph,
+          vids = vids,
+          mode = isolates
+        )
       }
     } else {
       if (is.null(vids)) {
-        transitivity_barrat_impl(graph, weights = weights, mode = isolates)
+        transitivity_barrat_impl(
+          graph = graph,
+          weights = weights,
+          mode = isolates
+        )
       } else {
-        transitivity_barrat_impl(graph, vids, weights, isolates)
+        transitivity_barrat_impl(
+          graph = graph,
+          vids = vids,
+          weights = weights,
+          mode = isolates
+        )
       }
     }
 
@@ -3097,7 +3127,11 @@ components <- function(graph, mode = c("weak", "strong")) {
   mode <- igraph.match.arg(mode)
 
   # Function call
-  res <- connected_components_impl(graph, mode, details = TRUE)
+  res <- connected_components_impl(
+    graph = graph,
+    mode = mode,
+    details = TRUE
+  )
   res$membership <- res$membership + 1
   if (igraph_opt("add.vertex.names") && is_named(graph)) {
     names(res$membership) <- V(graph)$name
@@ -3173,7 +3207,11 @@ unfold_tree <- function(graph, mode = c("all", "out", "in", "total"), roots) {
   roots <- as_igraph_vs(graph, roots) - 1
 
   # Function call
-  res <- unfold_tree_impl(graph = graph, mode = mode, roots = roots)
+  res <- unfold_tree_impl(
+    graph = graph,
+    mode = mode,
+    roots = roots
+  )
   res
 }
 
@@ -3398,7 +3436,11 @@ is_matching <- function(graph, matching, types = NULL) {
   matching[is.na(matching)] <- 0 # Use 0 since is_matching_impl will subtract 1, making it -1
 
   # Function call
-  res <- is_matching_impl(graph = graph, types = types, matching = matching)
+  res <- is_matching_impl(
+    graph = graph,
+    types = types,
+    matching = matching
+  )
 
   res
 }