Commit 8eab7b7c authored by Aqeel Padaria's avatar Aqeel Padaria

take model list as character in first initialization

parent aff53645
......@@ -343,6 +343,7 @@ server = shinyServer(
main <- getSheet("main")
models <- main[,"Models"]
models <- models[complete.cases(models)]
models <- as.character(models)
models <- c("All",models)
selectInput("var",
label = "Choose a model to display",
......@@ -851,6 +852,7 @@ server = shinyServer(
Models <- getSheet("main")
models <- main[,"Models"]
models <- models[complete.cases(models)]
models <- as.character(models)
models <- c("All",models)
updateSelectInput(session, "var", "Choose a model to display",
......@@ -911,6 +913,7 @@ server = shinyServer(
#main <- read.xlsx(datasetName, sheet = "main")
models <- unique(Models[,"Model"])
models <- models[complete.cases(models)]
models <- as.character(models)
models <- c("All",models)
updateSelectInput(session, "var", "Choose a model to display",
......@@ -950,6 +953,7 @@ server = shinyServer(
#main <- read.xlsx(datasetName, sheet = "main")
models <- unique(Models[,"Model"])
models <- models[complete.cases(models)]
models <- as.character(models)
models <- c("All",models)
updateSelectInput(session, "var", "Choose a model to display",
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment