if (interactive()) {
library(shiny)
library(shinyMobile)
colors <- getF7Colors()
shinyApp(
ui = f7Page(
title = "Badges",
f7SingleLayout(
navbar = f7Navbar(title = "f7Badge"),
f7Block(
strong = TRUE,
f7Badge("Default"),
lapply(seq_along(colors), function(i) {
f7Badge(colors[[i]], color = colors[[i]])
})
)
)
),
server = function(input, output) {}
)
}
Run the code above in your browser using DataLab