R/warning_text.R

In shinyGovstyle: Custom Gov Style Inputs for Shiny

#' Warning Text Function
#'
#' This function create warning text
#' @param inputId The input slot that will be used to access the value.
#' @param text Text that goes in the main
#' @return a warning box html shiny object
#' @keywords warning
#' @export
#' @examples
#' if (interactive()) {
#'   ui <- fluidPage(
#'     shinyGovstyle::header(
#'       main_text = "Example",
#'       secondary_text = "User Examples",
#'       logo="shinyGovstyle/images/moj_logo.png"),
#'     shinyGovstyle::gov_layout(size = "two-thirds",
#'       shinyGovstyle::warning_text(
#'         inputId = "warn1",
#'         text = "You can be fined up to £5,000 if you do not register.")
#'     ),
#'     shinyGovstyle::footer(full = TRUE)
#'   )
#'
#'   server <- function(input, output, session) {}
#'   shinyApp(ui = ui, server = server)
#' }

warning_text <- function(inputId, text){
  govWarning <- shiny::tags$div(class="govuk-warning-text", id = inputId,
    shiny::tags$span(
      "!", class="govuk-warning-text__icon", `aria-hidden`="true"
    ),
    shiny::tags$strong(text, class="govuk-warning-text__text",
      shiny::tags$span("Warning", class="govuk-warning-text__assistive")
    )
  )
  attachDependency(govWarning)
}