and the next save!!!
This commit is contained in:
2
app.R
2
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
|
||||
|
||||
Reference in New Issue
Block a user