showF7Preloader | R Documentation |
showF7Preloader
shows a preloader.
f7HidePreloader
hides a preloader.
showF7Preloader( target = NULL, color = NULL, session = shiny::getDefaultReactiveDomain() ) f7HidePreloader(target = NULL, session = shiny::getDefaultReactiveDomain())
target |
Element where preloader overlay will be added. |
color |
Preloader color. |
session |
Shiny session object. |
if (interactive()) { library(shiny) library(shinyMobile) # basic preloader with red color shinyApp( ui = f7Page( title = "Preloader", f7SingleLayout( navbar = f7Navbar( title = "Preloader", hairline = FALSE, shadow = TRUE ), # main content f7Button("showLoader", "Show loader"), f7Shadow( intensity = 10, hover = TRUE, f7Card( title = "Card header", f7Slider("obs", "Number of observations", 0, 1000, 500), plotOutput("distPlot") ) ) ) ), server = function(input, output, session) { output$distPlot <- renderPlot({ dist <- rnorm(input$obs) hist(dist) }) observeEvent(input$showLoader, { showF7Preloader(color = "red") Sys.sleep(2) f7HidePreloader() }) } ) # preloader in container shinyApp( ui = f7Page( title = "Preloader in container", f7SingleLayout( navbar = f7Navbar( title = "Preloader in container", hairline = FALSE, shadow = TRUE ), # main content f7Shadow( intensity = 10, hover = TRUE, f7Card( title = "Card header", f7Slider("obs", "Number of observations", 0, 1000, 500), plotOutput("distPlot") ) ), f7Card("This is a simple card with plain text, but cards can also contain their own header, footer, list view, image, or any other element.") ) ), server = function(input, output, session) { output$distPlot <- renderPlot({ dist <- rnorm(input$obs) hist(dist) }) observeEvent(input$obs, { showF7Preloader(target = "#distPlot", color = "red") Sys.sleep(2) f7HidePreloader() }) } ) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.