CI(depends): Fix depends-only CRAN checks (#430)

Author: schloerke

tests/testthat/test-app-export.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("ggplot2")
+
 library(shiny)
 library(ggplot2)
 

tests/testthat/test-app-screenshot-size.R

@@ -3,6 +3,7 @@ library(shiny)
 
 test_that("images are captured via expect_values", {
   skip_on_cran()
+  skip_if_not_installed("png")
 
   img_height <- 501
   img_width <- 502

tests/testthat/test-migration-file.R

@@ -1,15 +1,21 @@
+skip_if_not_installed("shinytest")
+
 expect_text_migration <- function(original_txt, new_txt, ...) {
   info_env <- make_info_env(..., app_var = NULL) # nolint
   suppressMessages({
-    converted_text <- m__parse_test_text(original_txt, "test-migration-file", info_env)
+    converted_text <- m__parse_test_text(
+      original_txt,
+      "test-migration-file",
+      info_env
+    )
   })
   testthat::expect_equal(converted_text, new_txt)
   info_env
 }
 
 test_that("file contents are converted", {
   info_env <- expect_text_migration(
-"
+    "
     # Comment
     1+ 1; 1 +1; 1+1;
 
@@ -36,7 +42,7 @@ test_that("file contents are converted", {
     app$setInputs(bins = app$getAllValues()$input$bins, values_ = FALSE)
     app$snapshot()
 ",
-"
+    "
     # Comment
     1+ 1; 1 +1; 1+1;
 
@@ -63,7 +69,6 @@ app$expect_values()",
 
 
 test_that("`$expect_screenshot()` only shows up when `compareImages == TRUE` and `screenshot == TRUE`", {
-
   # No suffix, compare_images = TRUE
   expect_text_migration(
     "app <- ShinyDriver$new(\"../..\"); app$snapshotInit(\"mytest\"); app$snapshot()",
@@ -86,13 +91,15 @@ test_that("`$expect_screenshot()` only shows up when `compareImages == TRUE` and
   expect_text_migration(
     "app <- ShinyDriver$new(\"custom/path\"); app$snapshot()",
     "app <- AppDriver$new(\"custom/path\")\napp$expect_values()",
-    suffix = NULL, compare_images = FALSE
+    suffix = NULL,
+    compare_images = FALSE
   )
 
   # compare_images = FALSE w/ screenshot = TRUE; compare_images wins
   expect_text_migration(
     "app <- ShinyDriver$new(\"../..\"); app$snapshotInit(\"mytest\", screenshot = TRUE); app$snapshot()",
     "app <- AppDriver$new()\napp$expect_values()",
-    suffix = NULL, compare_images = FALSE
+    suffix = NULL,
+    compare_images = FALSE
   )
 })

tests/testthat/test-migration-migrate.R

@@ -1,6 +1,7 @@
 # Too many possibilities for tests to randomly fail (e.g. file paths on windows, etc.)
 # The other test files cover this fairly well. CI is good enough
 skip_on_cran()
+skip_if_not_installed("shinytest")
 
 
 expect_migration <- function(test_app_folder, ...) {

tests/testthat/test-migration-transformation.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("shinytest")
+
 expect_msg_helper <- function(expr, message, fixed, expect_fn, ...) {
   if (is.na(message)) {
     if (interactive()) {
@@ -52,10 +54,10 @@ expect_migration_error <- function(
 ) {
   expect_msg_helper(
     # migrated_expr <-
-      m__shinytest_lang(
-        rlang::enexpr(original_expr),
-        info_env
-      ),
+    m__shinytest_lang(
+      rlang::enexpr(original_expr),
+      info_env
+    ),
     message = message,
     fixed = fixed,
     expect_fn = testthat::expect_error
@@ -65,7 +67,6 @@ expect_migration_error <- function(
 }
 
 
-
 test_that("setInputs is converted", {
   expect_migration(
     app$setInputs(x = 1, allowInputNoBinding_ = TRUE, y = 2),
@@ -137,15 +138,17 @@ test_that("click is converted", {
 })
 
 
-
 test_that("executeScript is converted", {
   expect_migration(
     app$executeScript("1 + 1"),
     app$get_js(script = "1 + 1", timeout = 10000)
   )
   expect_migration(
     app$executeScript("1 + 1", x = 1, y = 2),
-    app$get_js(script = "let arguments_ = {\"x\":1,\"y\":2};\n1 + 1", timeout = 10000)
+    app$get_js(
+      script = "let arguments_ = {\"x\":1,\"y\":2};\n1 + 1",
+      timeout = 10000
+    )
   )
 })
 
@@ -470,7 +473,12 @@ test_that("takeScreenshot is converted", {
   )
 
   expect_migration(
-    app$uploadFile(timeout_ = 2, myid = "file.png", wait_ = FALSE, values_ = FALSE),
+    app$uploadFile(
+      timeout_ = 2,
+      myid = "file.png",
+      wait_ = FALSE,
+      values_ = FALSE
+    ),
     app$upload_file(myid = "file.png", wait_ = FALSE, timeout_ = 2)
   )
 })
@@ -495,7 +503,12 @@ test_that("waitForShiny is converted", {
 test_that("waitForValue is converted", {
   expect_migration(
     app$waitForValue(myname, ignore = foo(), timeout = 2, checkInterval = 3),
-    app$wait_for_value(input = myname, ignore = foo(), timeout = 2, interval = 3)
+    app$wait_for_value(
+      input = myname,
+      ignore = foo(),
+      timeout = 2,
+      interval = 3
+    )
   )
   expect_migration(
     app$waitForValue(myname, iotype = "output"),
@@ -544,23 +557,26 @@ test_that("snapshot is converted", {
     rlang::exprs(
       app$expect_values(),
       app$expect_screenshot()
-    ), enexpr_new_expr = FALSE
+    ),
+    enexpr_new_expr = FALSE
   )
   # Use a char
   expect_snapshot_migration(
     app$snapshot(items = list(output = "myoutput")),
     rlang::exprs(
       app$expect_values(output = "myoutput"),
       app$expect_screenshot()
-    ), enexpr_new_expr = FALSE
+    ),
+    enexpr_new_expr = FALSE
   )
   # Respect language
   expect_snapshot_migration(
     app$snapshot(items = list(output = myoutputvar)),
     rlang::exprs(
       app$expect_values(output = myoutputvar),
       app$expect_screenshot()
-    ), enexpr_new_expr = FALSE
+    ),
+    enexpr_new_expr = FALSE
   )
   # Turn off expect_screenshot if compare_images is false
   expect_snapshot_migration(

vignettes/use-application-audit.Rmd

@@ -13,9 +13,8 @@ knitr::opts_chunk$set(
   collapse = TRUE,
   comment = "#>"
 )
-library(shinytest2)
-library(shiny)
-library(deSolve)
+# library(shinytest2)
+# library(shiny)
 ```
 
 # Audit Shiny apps with {shinytest2}
@@ -45,7 +44,7 @@ server <- function(input, output) {
   output$brussels <- renderPlot({
     y0 <- c(X = input$X, Y = input$Y)
     times <- seq(0, 1000, .01)
-    out <- ode(y0, times, van_der_pol, input$mu)
+    out <- deSolve::ode(y0, times, van_der_pol, input$mu)
     par(mfrow = c(1, 1))
     plot(out[, 2:3], type = "l", xlab = "X", ylab = "Y", main = "state diagram")
   })
@@ -144,7 +143,7 @@ recorder_bg <- function(port) {
 
 We can pass this to the `start_r_bg()` function:
 
-```r
+``` r
 start_r_bg <- function(fun, path = NULL, port = 3515) {
 
   # remove NULL elements