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'){