UIkitAlert: Create an UIkit alert

In DivadNojnarg/shinyUIkit: 'shiny' API for the 'UIkit' Web Framework

Description

Build an UIkit alert.

Usage

UIkitAlert(..., color = NULL, closable = TRUE)

Arguments

...	Alert text.
color	Alert color: "primary", "success", "warning", "danger".
closable	Whether to display a close button. TRUE by default.

Author(s)

David Granjon, [e-mail]

Examples

if(interactive()){
library(shiny)

shiny::shinyApp(
 ui = UIkitPage(
   title = "My UIkit application",
   h1("Alerts are displayed, if slider > 5"),
   sliderInput(
    "slider", 
    "Number of observations:",
     min = 0, 
     max = 10, 
     value = 2
   ),
   uiOutput("alerts")
 ),
 server = function(input, output) {
  
  output$alerts <- renderUI({
   if (input$slider > 5) {
    tagList(
     UIkitAlert(
      color = "primary",
      h3("Primary Notice"),
      "Lorem ipsum dolor sit amet, consectetur 
      adipiscing elit, sed do eiusmod tempor 
      incididunt"
     ),
     UIkitAlert(
      color = "danger",
      h3("Danger Notice"),
      "Lorem ipsum dolor sit amet, consectetur 
      adipiscing elit, sed do eiusmod tempor 
      incididunt"
     ),
     UIkitAlert(
      color = "warning",
      h3("Warning Notice"),
      "Lorem ipsum dolor sit amet, consectetur 
      adipiscing elit, sed do eiusmod tempor 
      incididunt"
     )
    )
   }
  })
 
 }
 )
}

DivadNojnarg/shinyUIkit documentation built on July 24, 2019, 8:17 a.m.