Nothing
#' 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-visually-hidden")
)
)
attachDependency(govWarning)
}
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.