and the next save!!!

app.R

@@ -493,7 +493,7 @@ server <- function(input, output, session) {
     
     nodeNet <- nodes[(nodes$code %in% .selections$pressStatus$code[.selections$pressStatus$status %in% c('On')]),]
     
-    save(nodes, edges, nodeNet, file = 'tmp.RData')
+    #save(nodes, edges, nodeNet, file = 'tmp.RData')
     
     if (nrow(nodeNet)>0) {
       #do pressures