bulmaMessage: bulma messqge

Description Usage Arguments Author(s) Examples

View source: R/bulma-message.R

Description

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

Usage

1
2
3
4
5
6
7
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(s)

David Granjon, dgranjon@ymail.com

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
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)
}

JohnCoene/shinybulma documentation built on Oct. 17, 2020, 8:57 p.m.