bulma messqge

Create a nice box for messages https://bulma.io/documentation/elements/message/.

bulmaMessage(
  ...,
  color = NULL,
  size = NULL,
  header = TRUE,
  header_title = NULL
)

Arguments

...	Any message to display in the body.
color	Message color : link, info, primary, warning, danger, success, black, dark and ligth.
size	Message size : small, medium and large. NULL by default, which corresponds to normal size.
header	Message header. Display the header or not, TRUE by default.
header_title	Header title, if any.

Author

David Granjon, dgranjon@ymail.com

Examples

if (interactive()) {
  library(shiny)
  
  ui <- bulmaPage(
    bulmaContainer(
      bulmaColumns(
        bulmaColumn(
          width = 4,
          bulmaMessage(
            color = NULL, 
            size = "large", 
            header = TRUE, 
            header_title = "First message",
            "Lorem ipsum dolor sit amet, 
            consectetur adipiscing elit. 
            Pellentesque risus mi, tempus 
            quis placerat ut, porta nec nulla. 
            Vestibulum rhoncus ac ex sit amet 
            fringilla. Nullam gravida purus diam, 
            et dictum felis venenatis efficitur. 
            Aenean ac eleifend lacus, in mollis 
            lectus. Donec sodales, arcu et 
            sollicitudin porttitor, tortor urna 
            tempor ligula, id porttitor mi magna a 
            neque. Donec dui urna, vehicula et 
            sem eget, facilisis sodales sem."
          )
        ),
        bulmaColumn(
          width = 4,
          bulmaMessage(
            color = "warning", 
            size = NULL, 
            header = FALSE,
            "Lorem ipsum dolor sit amet, 
            consectetur adipiscing elit. 
            Pellentesque risus mi, tempus 
            quis placerat ut, porta nec nulla. 
            Vestibulum rhoncus ac ex sit amet 
            fringilla. Nullam gravida purus diam, 
            et dictum felis venenatis efficitur. 
            Aenean ac eleifend lacus, in mollis 
            lectus. Donec sodales, arcu et 
            sollicitudin porttitor, tortor urna 
            tempor ligula, id porttitor mi magna a 
            neque. Donec dui urna, vehicula et 
            sem eget, facilisis sodales sem."
          )
        ),
        bulmaColumn(
          width = 4,
          bulmaMessage(
            color = "danger", 
            size = "small", 
            header = TRUE, 
            header_title = "Third message",
            "Lorem ipsum dolor sit amet, 
            consectetur adipiscing elit. 
            Pellentesque risus mi, tempus 
            quis placerat ut, porta nec nulla. 
            Vestibulum rhoncus ac ex sit amet 
            fringilla. Nullam gravida purus diam, 
            et dictum felis venenatis efficitur. 
            Aenean ac eleifend lacus, in mollis 
            lectus. Donec sodales, arcu et 
            sollicitudin porttitor, tortor urna 
            tempor ligula, id porttitor mi magna a 
            neque. Donec dui urna, vehicula et 
            sem eget, facilisis sodales sem."
          )
        )
      )
    )
  )
  
  server <- function(input, output, session) {
    
  }
  
  shinyApp(ui = ui, server = server)
}