and the next save!!!

This commit is contained in:
2019-04-10 11:37:38 +01:00
parent 9025e57e35
commit 2fb2080d85

2
app.R
View File

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