Nothing
#' Error on Function
#'
#' This function turns on the the error o the component. Can be used to
#' validate inputs.
#' @param inputId The input id that you to to turn the error on for.
#' @param error_message if you want to add an additional error message.
#' Defaults to NULL, showing the original designed error message
#' @return no return value. This toggles on error css
#' @keywords error
#' @export
#' @examples
#' ## Only run examples in interactive R sessions
#' if (interactive()) {
#'
#' ui <- fluidPage(
#' # Required for error handling function
#' shinyjs::useShinyjs(),
#' shinyGovstyle::header(
#' main_text = "Example",
#' secondary_text = "User Examples",
#' logo="shinyGovstyle/images/moj_logo.png"),
#' shinyGovstyle::banner(
#' inputId = "banner", type = "beta", 'This is a new service'),
#' shinyGovstyle::gov_layout(size = "two-thirds",
#' # Error text box
#' shinyGovstyle::text_Input(
#' inputId = "eventId",
#' label = "Event Name",
#' error = TRUE),
#' # Button to trigger error
#' shinyGovstyle::button_Input(inputId = "submit", label = "Submit")
#' ),
#' shinyGovstyle::footer(full = TRUE)
#' )
#'
#'
#' server <- function(input, output, session) {
#' #Trigger error on blank submit of eventId2
#' observeEvent(input$submit, {
#' if (input$eventId != ""){
#' shinyGovstyle::error_off(inputId = "eventId")
#' } else {
#' shinyGovstyle::error_on(
#' inputId = "eventId",
#' error_message = "Please complete")
#' }
#' })
#' }
#'
#' # Run the application
#' shinyApp(ui = ui, server = server)
#' }
error_on <- function(inputId, error_message = NULL){
shinyjs::addClass(paste0(inputId, "div"), "govuk-form-group--error")
if (!is.null(error_message)){
shinyjs::html(paste0(inputId, "error"), error_message)
}
shinyjs::show(paste0(inputId, "error"))
shinyjs::addClass(selector = paste0("#", inputId,"div :input"),
class = "govuk-input--error")
shinyjs::addClass(selector = paste0("#", inputId,"file_div"),
class = "govuk-input--error")
}
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.