Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Changed landing_page to a better fallback
  • Loading branch information
jenzopr committed Sep 5, 2019
1 parent 9016370 commit 87f2bfa
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions wilson-basic/app.R
Expand Up @@ -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
Expand Down

0 comments on commit 87f2bfa

Please sign in to comment.