Nothing
#' Error Summary Function
#'
#' This function loads the error summary component to display error text.
#' This replicates the gov style error boxes linked below:
#' https://design-system.service.gov.uk/components/error-summary/
#' @param inputId The input slot that will be used to access the value.
#' @param error_title The title for the error summary.
#' @param error_list A list of text values to be displayed in the error body.
#' @return an error_summary html shiny object
#' @keywords error_summary
#' @export
#' @examples
#' if (interactive()) {
#' ui <- fluidPage(
#' shinyjs::useShinyjs(),
#' shinyGovstyle::header(
#' main_text = "Example",
#' secondary_text = "User Examples",
#' logo = "shinyGovstyle/images/moj_logo.png"
#' ),
#' shinyGovstyle::gov_layout(
#' size = "two-thirds",
#' error_summary(
#' inputId = "errorId",
#' error_title = "Error title",
#' error_list = c("error item1", "error item2")
#' )
#' ),
#' shinyGovstyle::button_Input("btn1", "Change error summary"),
#' shinyGovstyle::footer(full = TRUE)
#' )
#'
#' server <- function(input, output, session) {
#'
#' shiny::observeEvent(input$btn1, {
#' error_summary_update(
#' "errorId",
#' c("error item1", "error item2", "error item3")
#' )},
#' ignoreInit = TRUE
#' )
#' }
#' shinyApp(ui = ui, server = server)
#' }
error_summary <-
function(inputId,
error_title,
error_list) {
govErrorSummary <-
shiny::tags$div(
id = inputId,
class = "govuk-error-summary",
shiny::tags$h2(error_title, class = "govuk-error-summary__title"),
shiny::tags$div(
id = paste0(inputId, "list"),
class = "govuk-error-summary__body",
shiny::tags$ul(class = "govuk-list govuk-error-summary__list",
Map(function(x) {
shiny::tags$li(x)
}, x = error_list))
)
)
attachDependency(govErrorSummary)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.