From f67f6000c036b4cacaeb4bd87356085420642fff Mon Sep 17 00:00:00 2001
From: Andrew Duncan <duncanaj2@gmail.com>
Date: Thu, 3 May 2018 22:14:54 +0100
Subject: [PATCH] Fix for incorrect order of size attribute.

---
 R/sigmaAttrs.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/sigmaAttrs.R b/R/sigmaAttrs.R
index 69dda5f..db81ece 100644
--- a/R/sigmaAttrs.R
+++ b/R/sigmaAttrs.R
@@ -121,8 +121,8 @@ addNodeSize <- function(sigmaObj, minSize = 1, maxSize = 3, sizeMetric = 'degree
     sigmaObj$x$options$minNodeSize <- minSize
     sigmaObj$x$options$maxNodeSize <- maxSize
   } else{
-    tmp_graph <- igraph::graph_from_data_frame(sigmaObj$x$graph$edges,
-                                               directed = FALSE)
+    tmp_graph <- igraph::graph_from_edgelist(as.matrix(edges[,1:2]),
+                                             directed = FALSE)
     if(sizeMetric == 'degree'){
       nodes$size <- igraph::degree(tmp_graph)
     } else if(sizeMetric == 'closeness'){