diff --git a/src/server/server_admin.R b/src/server/server_admin.R index 5a39175..0877163 100644 --- a/src/server/server_admin.R +++ b/src/server/server_admin.R @@ -27,11 +27,13 @@ source("src/fun/func_admin.R", local = TRUE, encoding = "UTF-8")$value ## Main UI: ---- output$adminUI <- renderUI({ if (breederStatus() == "game master" | !gameInitialised()) { - source("src/ui/ui_admin_loggedIn.R", local = TRUE, encoding = "UTF-8")$value + return(source("src/ui/ui_admin_loggedIn.R", local = TRUE, encoding = "UTF-8")$value) } else { - shinydashboard::box( - width = 12, title = "Content unavailable", - div(p("Sorry, you need the 'game-master' status to access this.")) + return( + shinydashboard::box( + width = 12, title = "Content unavailable", + div(p("Sorry, you need the 'game-master' status to access this.")) + ) ) } }) diff --git a/src/ui/ui_admin_loggedIn.R b/src/ui/ui_admin_loggedIn.R index 760ee43..3585f98 100644 --- a/src/ui/ui_admin_loggedIn.R +++ b/src/ui/ui_admin_loggedIn.R @@ -47,8 +47,10 @@ if (gameInitialised()) { style = "width: 300px; border-collapse: collapse;", # start table 1 tags$td( style = "width: 34%; vertical-align: bottom; padding: 10px; padding-bottom: 13.8px;", - dateInput("startDate", "Date", - width = "120px" + div(style = "padding-bottom: 5px;", + dateInput("startDate", "Date", + width = "120px" + ) ) ), tags$td( @@ -70,8 +72,10 @@ if (gameInitialised()) { style = "width: 300px; border-collapse: collapse;", # start table 2 tags$td( style = "width: 34%; vertical-align: bottom; padding: 10px; padding-bottom: 13.8px;", - dateInput("endDate", "Date", - width = "120px" + div(style = "padding-bottom: 5px;", + dateInput("endDate", "Date", + width = "120px" + ) ) ), tags$td( @@ -364,7 +368,7 @@ game_initialisation_tab_content <- div( list( shinydashboard::tabBox( - width = 13, title = "Admin", id = "admin_tabset", side = "left", selected = default_tab, + width = 12, title = "Admin", id = "admin_tabset", side = "left", selected = default_tab, tabPanel( "Manage sessions", manage_sessions_tab_content