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) }