# \donttest{
if (interactive()) {
library(shiny)
library(nextGenShinyApps)
shiny::shinyApp(
ui = fluidPage(
style = "3",
custom.bg.color = "cyan",
sidebar = NULL,
header = NULL,
card(
header = FALSE,
shiny::h2("loading spinner"),
spinner(type = "rect", size = "s"),
spinner(type = "rect", color = "primary"),
spinner(type = "grow", color = "secondary"),
spinner(type = "ring", color = "success"),
spinner(type = "rect", color = "warning"),
spinner(type = "square", color = "danger"),
spinner(type = "rect", color = "info")
)
),
server = function(input, output) {
}
)
}
# }
Run the code above in your browser using DataLab