Randblinder minor update (#35)

* Add randomization and blinder tool

* Finalizing edits to randblinder tool, updating a few spots to fix R CMD CHECK issues

* Update with correct stratum name

inst/shiny_app/randblinder.R

@@ -75,7 +75,8 @@ ui <- fluidPage(theme = shinytheme("yeti"),
                     numericInput("length", "Number to randomize per strata", value = 100),
                     numericInput("length.max", "Maximum conceivable sample size (warning: changes allocations)", value = 1000),
                     numericInput("strata", "Number of strata", value = 4),
-                    textInput("strata_names", "Strata names (comma separated)", value = "Yale,Harvard,BU,CU"),
+                    textInput("strata_names", "Strata names (comma separated)",
+                              value = "Yale,Stanford,BU,CU"),
                     submitButton("Update"), hr(),
                     downloadButton("dl_blind", label = "Download Blinded Data"), br(),
                     downloadButton("dl_unblind", label = "Download Unblinded Data"), br()