Names

Author: krlmlr

R/centrality.R

@@ -448,11 +448,12 @@ betweenness <- function(
 ) {
   res <- betweenness_cutoff_impl(
     graph = graph,
+    weights = weights,
     vids = v,
     directed = directed,
-    weights = weights,
     cutoff = cutoff
   )
+
   if (normalized) {
     vc <- as.numeric(vcount(graph))
     if (is_directed(graph) && directed) {
@@ -477,10 +478,11 @@ edge_betweenness <- function(
   e <- as_igraph_es(graph, e)
   res <- edge_betweenness_cutoff_impl(
     graph = graph,
-    directed = directed,
     weights = weights,
+    directed = directed,
     cutoff = cutoff
   )
+
   res[as.numeric(e)]
 }
 

R/community.R

@@ -1700,7 +1700,6 @@ cluster_leiden <- function(
     res <- community_leiden_impl(
       graph = graph,
       weights = weights,
-      # FIXME: Also check below, might not be covered by tests
       vertex.weights = vertex_weights,
       resolution = resolution,
       beta = beta,
@@ -1718,7 +1717,6 @@ cluster_leiden <- function(
       res <- community_leiden_impl(
         graph = graph,
         weights = weights,
-        # FIXME: Also check above, might not be covered by tests
         vertex.weights = vertex_weights,
         resolution = resolution,
         beta = beta,

R/interface.R

@@ -744,5 +744,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/versions.R

@@ -244,5 +244,6 @@ print.igraph_version <- function(x, ...) {
 
 c_version <- function() {
   version <- version_impl()
+
   version[["version_string"]]
 }