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