Fixed bug in exporter - not getting node files

app.R

@@ -631,8 +631,8 @@ server <- function(input, output, session) {
     #Save pressure list, confidence levels, node and edge tables in xlsx
     l <- list(
       pressures = .selections$pressStatus,
-      nodes = model$nodes,
-      edges = model$edges,
+      nodes = model$p_es$nodes,
+      edges = model$p_es$edges,
       settings = as.data.frame(cbind(names(.resistanceScores), .resistanceScores), stringsAsFactors = FALSE)
     )