Included sample sizes of respective nested RCTs

mpip · Nov 28, 2019 · 01ceb9b · 01ceb9b
1 parent ef9561c
commit 01ceb9b
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 3 deletions.
diff --git a/server.R b/server.R
@@ -60,13 +60,21 @@ server <- function(input, output) {
 
       })
 
-      output$n_strat <- renderText({ 
+      output$n_traditional <- renderText({ 
 
             temp <- npRCT()
             as.character(temp$n_strat)
 
       })
 
+
+      output$n_precision <- renderText({ 
+
+            temp <- npRCT()
+            as.character(temp$n_total - temp$n_strat)
+
+      })
+
       output$n_saved <- renderText({ 
 
             temp <- npRCT()

diff --git a/ui.R b/ui.R
@@ -53,8 +53,17 @@ body <- dashboardBody(
                                       h3("Total Sample Size"),
                                       textOutput("n_total"),
 
-                                      h3("Point of Stratification"),
-                                      textOutput("n_strat"),
+                                      h3("Sample Sizes of nested RCTs"),
+
+                                      h4("Traditional RCT"),
+                                      textOutput("n_traditional"),
+
+                                      icon("chevron circle down", align = "center"),
+
+                                      h4("Precision RCT"),
+                                      textOutput("n_precision"),
+
+
 
                                       h3("Saved Sample Size"),
                                       textOutput("n_saved")