added example for loading()

R/loading.R

@@ -10,8 +10,9 @@
 #'
 #' @return a `list` that can be used in [capture()] or [capture_pdf()].
 #' @export
-#'
-loading <- function(text = "Generating PDF, please wait...",
+#' 
+#' @example examples/loading.R
+loading <- function(text = "Capturing screenshot, please wait...",
                     type = c("standard", "hourglass", "circle", "arrows", "dots", "pulse"),
                     color = "#246abe",
                     background = "rgba(0,0,0,0.8)",

_pkgdown.yml

@@ -2,14 +2,11 @@ url: https://dreamrs.github.io/capture
 
 template:
   bootstrap: 5
-  bootswatch: zephyr
+  bootswatch: sandstone
   bslib:
     base_font: {google: "Poppins"}
     primary: "#112446"
 
-navbar:
-  bg: primary
-
 authors:
   Victor Perrier:
     href: https://twitter.com/_pvictorr

examples/loading.R

@@ -0,0 +1,70 @@
+library(shiny)
+library(capture)
+
+ui <- fluidPage(
+  tags$h2("Capture (loading) example"),
+  capture(
+    selector = "body",
+    filename = "all-page",
+    scale = 5,
+    icon("camera"), "Auto loading indicator",
+    loading = loading(
+      text = "Capturing screenshot...", 
+      type = "arrows",
+      color = "firebrick",
+      size = "160px"
+    )
+  ),
+  tags$br(),
+  fluidRow(
+    column(
+      width = 4,
+      wellPanel(
+        tags$b("Parameters :"),
+        selectInput(
+          inputId = "loi",
+          label = "Law:",
+          choices = c("normal", "uniform", "exponential")
+        )
+      )
+    ),
+    column(
+      width = 8,
+      tags$div(
+        id = "result-block",
+        tags$b("Results :"),
+        plotOutput(outputId = "plot"),
+        uiOutput(outputId = "mean"),
+        verbatimTextOutput(outputId = "raw")
+      )
+    )
+  )
+)
+
+server <- function(input, output, session) {
+
+  distrib_r <- reactive({
+    switch(
+      input$loi,
+      "normal" = rnorm(1000),
+      "uniform" = runif(1000),
+      "exponential" = rexp(1000)
+    )
+  })
+
+  output$plot <- renderPlot({
+    hist(distrib_r())
+  })
+
+  output$mean <- renderUI({
+    tags$p(tags$b("The mean is :"), round(mean(distrib_r()), 2))
+  })
+
+  output$raw <- renderPrint({
+    summary(distrib_r())
+  })
+
+}
+
+if (interactive())
+  shinyApp(ui, server)