From 87f2bfa2428d8f7b2e8e4de486a6626484119e20 Mon Sep 17 00:00:00 2001 From: Jens Preussner Date: Thu, 5 Sep 2019 11:43:46 +0200 Subject: [PATCH] Changed landing_page to a better fallback --- wilson-basic/app.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/wilson-basic/app.R b/wilson-basic/app.R index a944d52..ba37a02 100755 --- a/wilson-basic/app.R +++ b/wilson-basic/app.R @@ -24,8 +24,10 @@ wilson_sidepanelwidth <- Sys.getenv("WILSON_SIDEPANELWIDTH", unset = 2) wilson_mainpanelwidth <- Sys.getenv("WILSON_MAINPANELWIDTH", unset = 10) # Which page should the user land on - default is the Introdcution page -wilson_landing_page <- match.arg(arg = Sys.getenv("WILSON_LANDING_PAGE", unset = "introduction"), - choices = c("introduction", "feature_selection")) +wilson_landing_page <- Sys.getenv("WILSON_LANDING_PAGE", unset = "introduction") +if(!wilson_landing_page %in% c("introduction", "feature_selection")) { + wilson_landing_page <- "introduction" +} # # Server options