Add level

Add levels

bulmaLevel(..., mobile = FALSE)

bulmaLevelItem(heading, value, centered = TRUE)

renderBulmaLevel(expr, env = parent.frame(), quoted = FALSE)

bulmaLevelOutput(outputId)

Arguments

...	any element.
mobile	set to TRUE if you want the level to be horizontal on mobile.
heading	level heading.
value	level value.
centered	whether to center to level.
expr	An expression that returns a Shiny tag object, HTML(), or a list of such objects.
env	The environment in which to evaluate expr.
quoted	Is expr a quoted expression (with quote())? This is useful if you want to save an expression in a variable.
outputId	id of output.

Author

John Coene, jcoenep@gmail.com

Examples

if(interactive()){
library(shiny)

shinyApp(
  ui = bulmaPage(
    bulmaLevel(
      bulmaLevelItem("Tweets", "3'456"),
      bulmaLevelItem("Following", 765),
      bulmaLevelItem("Followers", "2'134")
    ),
    bulmaLevelOutput("levels")
  ),
  server = function(input, output) {
    output$levels <- renderBulmaLevel({
      bulmaLevel(
        bulmaLevelItem("Tweets", sample(100:5000, 1)),
        bulmaLevelItem("Following", sample(100:5000, 1)),
        bulmaLevelItem("Followers", sample(100:5000, 1))
      )
    })
  }
)
}