aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorNaeem Model <me@nmode.ca>2023-07-25 02:17:43 +0000
committerNaeem Model <me@nmode.ca>2023-07-25 02:17:43 +0000
commit02edefe2c0ccd07e2c510c073189d69af097892e (patch)
tree80f1369c2cbe06bf541c6b6adf95b144a9f8433a /R
parent1d15746821b536ef60d6b86e475bf0057d98e8bd (diff)
Fix string formatting and text output
Diffstat (limited to 'R')
-rw-r--r--R/server.R2
-rw-r--r--R/ui.R17
2 files changed, 10 insertions, 9 deletions
diff --git a/R/server.R b/R/server.R
index ed5ecd7..a2ba674 100644
--- a/R/server.R
+++ b/R/server.R
@@ -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
}
diff --git a/R/ui.R b/R/ui.R
index 5c6d420..111b5f3 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -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")