updated ui.R dashboardHeader

mpip · Nov 28, 2019 · 1c7c48f · 1c7c48f
1 parent 4470aec
commit 1c7c48f
Showing 1 changed file with 23 additions and 13 deletions.
diff --git a/ui.R b/ui.R
@@ -8,8 +8,15 @@ library("semantic.dashboard")
 
 
 ui <- dashboardPage(
-      dashboardHeader(title = "nested-precision Randomised Controlled Trial (npRCT)
-                      Power Calculation"),
+
+
+      dashboardHeader(
+
+            h1("nested-precision Randomised Controlled Trial (npRCT)", style = "color:black"),
+
+            color = "blue",
+            disable = FALSE
+      ),
 
       dashboardSidebar(
             side = "left",
@@ -34,15 +41,18 @@ ui <- dashboardPage(
 
                         h1("npRCT"),
                         p("Below you can find results from power analysis for the", strong("nested-precision Randomised Controlled Trial (npRCT)"),". You can set parameters for power analysis in the box to the right. Results from power analysis will change accordingly below."),
-                        box(title = "Results",
-                        h3("Total Sample Size"),
-                        textOutput("n_total"),
-
-                        h3("Point of Stratification"),
-                        textOutput("n_strat"),
-
-                        h3("Saved Sample Size"),
-                        textOutput("n_saved")
+                        box(
+                              title = "Results",
+                              color = "grey",
+
+                              h3("Total Sample Size"),
+                              textOutput("n_total"),
+
+                              h3("Point of Stratification"),
+                              textOutput("n_strat"),
+
+                              h3("Saved Sample Size"),
+                              textOutput("n_saved")
                         )
                       ),
 
@@ -54,7 +64,7 @@ ui <- dashboardPage(
 
 
                         # ----------Traditional RCT Parameters------------
-                        h3("Traditional RCT"),
+                        h2("Traditional RCT"),
                         sliderInput("d1",
                                     "Effect Size",
                                     step = 0.01,
@@ -84,7 +94,7 @@ ui <- dashboardPage(
 
 
                         # ----------Precision RCT Parameters------------
-                        h3("Precision RCT"),
+                        h2("Precision RCT"),
                         sliderInput("d2",
                                     "Effect Size",
                                     step = 0.01,