View source: R/bulma-message.R
bulmaMessage | R Documentation |
Create a nice box for messages https://bulma.io/documentation/elements/message/.
bulmaMessage(
...,
color = NULL,
size = NULL,
header = TRUE,
header_title = NULL
)
... |
Any message to display in the body. |
color |
Message color : |
size |
Message size : |
header |
Message header. Display the header or not, TRUE by default. |
header_title |
Header title, if any. |
David Granjon, dgranjon@ymail.com
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.