From 02edefe2c0ccd07e2c510c073189d69af097892e Mon Sep 17 00:00:00 2001 From: Naeem Model Date: Tue, 25 Jul 2023 02:17:43 +0000 Subject: Fix string formatting and text output --- R/server.R | 2 +- R/ui.R | 17 +++++++++-------- 2 files changed, 10 insertions(+), 9 deletions(-) (limited to 'R') 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") -- cgit v1.2.3