add manual tests

Author: daattali

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: shinycssloaders
 Title: Add Loading Animations to a 'shiny' Output While It's Recalculating
-Version: 1.1.0.9005
+Version: 1.1.0.9006
 Authors@R: c(
     person("Dean","Attali",email="[email protected]",role=c("aut","cre"),
         comment = c("Maintainer/developer of shinycssloaders since 2019", ORCID="0000-0002-5645-3493")),

NEWS.md

@@ -5,6 +5,7 @@
 - Add `fill` argument to support {bslib} cards and fillable containers (#76)
 - Add `inline` argument to allow displaying spinner inline (#25)
 - Add `width` argument that can be used in rare cases where the spinner has no inherent width (#85)
+- Added manual tests for most of the supported features
 
 # shinycssloaders 1.1.0 (2024-07-30)
 

tests/manual/1-basic.R

@@ -0,0 +1,15 @@
+library(shiny)
+
+shinyApp(
+  ui = fluidPage(
+    actionButton("go", "Go"),
+    withSpinner(plotOutput("plot"))
+  ),
+  server = function(input, output) {
+    output$plot <- renderPlot({
+      input$go
+      Sys.sleep(1.5)
+      plot(runif(10))
+    })
+  }
+)

tests/manual/2-params.R

@@ -0,0 +1,16 @@
+library(shiny)
+
+shinyApp(
+  ui = fluidPage(
+    actionButton("go", "Go"),
+    withSpinner(plotOutput("plot"), type = 2, color = "darkblue", size = 2,
+                color.background = "blue", caption = "Test", delay = 300)
+  ),
+  server = function(input, output) {
+    output$plot <- renderPlot({
+      input$go
+      Sys.sleep(1.5)
+      plot(runif(10))
+    })
+  }
+)

tests/manual/3-proxy-inline.R

@@ -0,0 +1,16 @@
+library(shiny)
+
+shinyApp(
+  ui = fluidPage(
+    actionButton("go", "Go"),
+    withSpinner(textOutput("text"), proxy.height = 80, inline = TRUE, width = 300),
+    "Test"
+  ),
+  server = function(input, output) {
+    output$text <- renderText({
+      input$go
+      Sys.sleep(1.5)
+      toString(sample(LETTERS, 3))
+    })
+  }
+)

tests/manual/4-show-hide.R

@@ -0,0 +1,22 @@
+library(shiny)
+
+ui <- fluidPage(
+  shinyjs::useShinyjs(),
+  actionButton("think","think"),
+  actionButton("unthink","unthink"),
+  actionButton("show","show"),
+  actionButton("hide","hide"), br(), br(), br(),
+  withSpinner(plotOutput("plot"))
+)
+
+server <- function(input, output, session) {
+  output$plot <- renderPlot({
+    plot(runif(10))
+  })
+  observeEvent(input$think, showSpinner("plot"))
+  observeEvent(input$unthink, hideSpinner("plot"))
+  observeEvent(input$show, shinyjs::show("plot"))
+  observeEvent(input$hide, shinyjs::hide("plot"))
+}
+
+shinyApp(ui, server)

tests/manual/5-fill.R

@@ -0,0 +1,30 @@
+library(shiny)
+library(bslib)
+
+ui <- page_fluid(
+  layout_columns(
+    card(
+      full_screen = TRUE,
+      card_header("without spinner"),
+      card_body(plotOutput("plot1"))
+    ),
+    card(
+      full_screen = TRUE,
+      card_header("with spinner"),
+      card_body(withSpinner(plotOutput("plot2"), fill = TRUE))
+    )
+  ),
+  actionButton("go", "go")
+)
+
+server <- function(input, output) {
+
+  output$plot1 <- output$plot2 <- renderPlot({
+    input$go
+    Sys.sleep(0.2)
+    plot(runif(20))
+  })
+
+}
+
+shinyApp(ui, server)

tests/manual/6-pageSpinner.R

@@ -0,0 +1,17 @@
+library(shiny)
+
+ui <- fluidPage(
+  actionButton("go", "Go"),
+  plotOutput("plot")
+)
+server <- function(input, output) {
+  observeEvent(input$go, {
+    showPageSpinner()
+    Sys.sleep(1)
+    hidePageSpinner()
+  })
+  output$plot <- renderPlot({
+    plot(runif(10))
+  })
+}
+shinyApp(ui, server)