Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 6 additions & 5 deletions R/mod_mitigators_server.R
Original file line number Diff line number Diff line change
Expand Up @@ -543,8 +543,10 @@ mod_mitigators_server <- function(
shiny::validate(
shiny::need(
nrow(nee_params) > 0,
"This TPMA was not part of the National Elicitation Exercise,
so a nationally-determined estimate is not available."
paste(
"This TPMA was not part of the National Elicitation Exercise,",
"so a nationally-determined estimate is not available."
)
)
)

Expand Down Expand Up @@ -610,9 +612,8 @@ mod_mitigators_server <- function(

output$slider_interval_text <- shiny::renderUI({
text <- glue::glue(
"Adjusting this slider will change the width of the",
"corresponding yellow-highlighted region in the trend, funnel",
"and boxplot charts above.",
"Click a slider handle and use your arrow keys for finer control.",
"Your interval is shown as a yellow range on the trend, funnel and boxplot charts.",
.sep = " "
)

Expand Down