Merge pull request #47 from statisticsnorway/dev-fix

Added package reference for E and V
statisticsnorway · Nov 8, 2024 · 3c13a33 · 3c13a33
2 parents c46bbac + 7995356
commit 3c13a33
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/R/UpdateKlass-graph-build.R b/R/UpdateKlass-graph-build.R
@@ -166,7 +166,7 @@ klass_graph <- function(classification, date = NULL) {
   graph <-
     igraph::reverse_edges(
       graph = graph,
-      eids = igraph::E(graph)[E(graph)$changeOccurred > date]
+      eids = igraph::E(graph)[igraph::E(graph)$changeOccurred > date]
     )
 
   klass_vertices <-

diff --git a/R/UpdateKlass-graph-navigate.R b/R/UpdateKlass-graph-navigate.R
@@ -26,19 +26,19 @@ klass_node <- function(graph, x, date = NA) {
   if (!is.na(date)) {
     date <- as.Date(date[[1]])
 
-    node <- igraph::V(graph)[V(graph)$code == x &
-      date >= V(graph)$validFrom &
-      (date < V(graph)$validTo | is.na(V(graph)$validTo))]
+    node <- igraph::V(graph)[igraph::V(graph)$code == x &
+      date >= igraph::V(graph)$validFrom &
+      (date < igraph::V(graph)$validTo | is.na(igraph::V(graph)$validTo))]
   } else {
-    x_indices <- which(V(graph)$code == x)
+    x_indices <- which(igraph::V(graph)$code == x)
 
     highest_variant_index <-
       suppressWarnings(
-        x_indices[which(V(graph)[x_indices]$variant ==
-          max(V(graph)[x_indices]$variant))]
+        x_indices[which(igraph::V(graph)[x_indices]$variant ==
+          max(igraph::V(graph)[x_indices]$variant))]
       )
 
-    node <- V(graph)[highest_variant_index]
+    node <- igraph::V(graph)[highest_variant_index]
   }
 
   if (length(node) > 1) {