From f5a4f9d15536f606f47e5bb4e5d3a459675d3e2d Mon Sep 17 00:00:00 2001
From: spegg <steve@avsdev.uk>
Date: Tue, 16 Apr 2019 14:17:37 +0100
Subject: [PATCH] Fixed bug in exporter - not getting node files

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

diff --git a/app.R b/app.R
index 588e14e..7935af7 100644
--- a/app.R
+++ b/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)
     )