Fixed bug in exporter - not getting node files

This commit is contained in:
2019-04-16 14:17:37 +01:00
parent f0569918f5
commit f5a4f9d155

4
app.R
View File

@@ -631,8 +631,8 @@ server <- function(input, output, session) {
#Save pressure list, confidence levels, node and edge tables in xlsx #Save pressure list, confidence levels, node and edge tables in xlsx
l <- list( l <- list(
pressures = .selections$pressStatus, pressures = .selections$pressStatus,
nodes = model$nodes, nodes = model$p_es$nodes,
edges = model$edges, edges = model$p_es$edges,
settings = as.data.frame(cbind(names(.resistanceScores), .resistanceScores), stringsAsFactors = FALSE) settings = as.data.frame(cbind(names(.resistanceScores), .resistanceScores), stringsAsFactors = FALSE)
) )