Fixed bug in exporter - not getting node files
This commit is contained in:
4
app.R
4
app.R
@@ -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)
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user