Update ui.R

[Rnaught] / R / ui.R

diff --git a/R/ui.R b/R/ui.R
index 4e4a500a57e94a85de127c8266b32040ed90d46c..060b5bc38e4d0565717f30a69d0d734864b179ee 100644 (file)
--- a/R/ui.R
+++ b/R/ui.R
@@ -1,4 +1,4 @@
-ui <- shiny::fluidPage(
+ui <- function() { shiny::fluidPage(
   # Title.
   shiny::titlePanel(shiny::HTML(
     paste0("Rnaught: An Estimation Suite for R", shiny::tags$sub("0")))),
@@ -23,9 +23,9 @@ ui <- shiny::fluidPage(
               shiny::column(8,
                 shiny::textInput(inputId = "dataCounts", label = shiny::HTML(
                   paste0("Case counts", shiny::tags$sup("[?]",
-                    title = "Enter as a comma-separated list of positive
-                             integers, with at least two entries.
-                             Example: 1,1,2,3,5,8"))))),
+                    title = paste0("Enter as a comma-separated list of ",
+                                   "positive integers, with at least two ",
+                                   "entries. Example: 1,1,2,3,5,8")))))),
               shiny::column(4,
                 shiny::selectInput(inputId = "dataUnits",
                                    label = "Reporting frequency",
@@ -60,7 +60,9 @@ ui <- shiny::fluidPage(
           # WHITE & PANAGO (WP).
           shiny::tags$details(
             shiny::tags$summary(shiny::h4("White & Panago (WP)")),
-            shiny::p("This is a description of the method."),
+            shiny::p("Method due to [White and Pagano(2008)], assumes a branching process based model. Serial
+distribution can be assumed known or can be estimated using maximum likelihood;  When serial interval is unknown
+the method takes longer to compute, though is still real-time."),
             shiny::br(),
             shiny::radioButtons(inputId = "serialWPKnown",
                                 label = "Is the mean serial interval known?",
@@ -124,11 +126,12 @@ ui <- shiny::fluidPage(
             ),
             shiny::span(shiny::textOutput(outputId = "serialseqBWarn"),
                         style = "color: red;"),
-            shiny::textInput(inputId = "kappaInput", label = shiny::HTML(
-              paste0("Maximum value", shiny::tags$sup("[?]",
-                title = "This describes the prior belief of R0, and should
-                         be set to a higher value if R0 is believed to be
-                         larger. (Default: 20)"))), value = "20"),
+            shiny::textInput(inputId = "kappaInput",
+              label = shiny::HTML(paste0("Maximum value", shiny::tags$sup("[?]",
+                title = paste0("This describes the prior belief of R0, and ",
+                               "should be set to a higher value if R0 is ",
+                               "believed to be larger. (Default: 20)")))),
+              value = "20"),
             shiny::span(shiny::textOutput(outputId = "kappaWarn"),
                         style = "color: red;"),
             shiny::actionButton(inputId = "addseqB", label = "Add")
@@ -194,4 +197,4 @@ ui <- shiny::fluidPage(
       )
     )
   )
-)
+)}