Options for report() functions, see
online documentation
for default values and examples.
config_report(
svgColor = NULL,
titleColor = NULL,
messageColor = NULL,
buttonBackground = NULL,
buttonColor = NULL,
backOverlayColor = NULL,
className = NULL,
width = NULL,
backgroundColor = NULL,
borderRadius = NULL,
rtl = NULL,
zindex = NULL,
backOverlay = NULL,
fontFamily = NULL,
svgSize = NULL,
plainText = NULL,
titleFontSize = NULL,
titleMaxLength = NULL,
messageFontSize = NULL,
messageMaxLength = NULL,
buttonFontSize = NULL,
buttonMaxLength = NULL,
cssAnimation = NULL,
cssAnimationDuration = NULL,
cssAnimationStyle = NULL,
...
)Changes the built-in SVG icon color.
Changes the title text color.
Changes the message text color.
Changes the button background color.
Changes the button text color.
Changes the color of the background overlay.
Changes the class name (attribute).
Changes the width.
Changes the background color.
Changes the radius of the corners.
Specifies the text direction to "right-to-left".
Changes the z-index.
Adds a background overlay.
Changes the font-family.
Changes the built-in SVG icons width and height. (Notiflix uses square scaled icons.)
Strips all HTML tags.
Changes the font-size of the title text.
The maximum length of the title text.
Changes the font-size of the message text.
The maximum length of the message text.
Changes the font-size of the button text.
The maximum length of the button text.
Enables/disables CSS animations to show/hide.
Changes the CSS animations duration as milliseconds.
2 types of styles can be used: fade zoom.
Other potential arguments.
A config list that can be used in report() and other report_* functions.
library(shiny)
library(shinybusy)
ui <- fluidPage(
tags$h2("Config for report() examples"),
actionButton("success", "Success"),
actionButton("failure", "Failure"),
actionButton("info", "Info")
)
server <- function(input, output, session) {
observeEvent(input$success, {
report_success(
"Well done!",
"All in order",
config_report(
svgColor = "#0431B4",
titleColor = "#0431B4"
)
)
})
observeEvent(input$failure, {
report_failure(
"Oups...",
"Something went wrong",
config_report(
svgColor = "#DF01D7",
titleColor = "#DF01D7"
)
)
})
observeEvent(input$info, {
report_info(
"For your information",
tags$p(
style = "font-style: italic;",
"Lorem ipsum dolor sit amet"
),
config_report(width = "560px", borderRadius = "5px")
)
})
}
if (interactive())
shinyApp(ui, server)