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