View source: R/bulma-loading.R
bulmaLoading | R Documentation |
Show loading page
bulmaLoading(title = "Loading", class = NULL)
title |
Title of loading page. |
class |
Any additional class. |
John Coene, jcoenep@gmail.com
if(interactive()){
ui <- bulmaPage(
bulmaTitle("Loader"),
bulmaSliderInput("slider", 50, 5, 100, step = 5),
bulmaLoading(),
bulmaContainer(
plotOutput("plot")
)
)
server <- function(input, output){
data <- reactive({
rnorm(input$slider, 10, 5)
})
output$plot <- renderPlot({
hist(data())
})
}
shiny::shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.