fix(UI): minor css fix

timflutre · Jun 25, 2024 · dac7de9 · dac7de9
1 parent d0d70d3
commit dac7de9
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 9 deletions.
diff --git 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
@@ -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