diff options
| -rw-r--r-- | R/server.R | 2 | ||||
| -rw-r--r-- | R/ui.R | 17 |
2 files changed, 10 insertions, 9 deletions
@@ -142,7 +142,7 @@ server <- function(input, output) { output$gridShapeWarn <- shiny::renderText("") if (is.na(max_scale) || max_scale < 1 / grid_length) { - output$gridShapeWarn <- shiny::renderText("Error: The maximum scale + output$gridScaleWarn <- shiny::renderText("Error: The maximum scale must be at least the reciprocal of the grid length.") checks_passed <- FALSE } @@ -23,9 +23,9 @@ ui <- function() { 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", @@ -124,11 +124,12 @@ ui <- function() { 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") |