Optionally skip test requiring magick

davidgohel · Oct 8, 2024 · 1c83913 · 1c83913
1 parent ef5cb8e
commit 1c83913
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test-images.R b/tests/testthat/test-images.R
@@ -64,6 +64,8 @@ df <- data.frame(
 )
 
 test_that("multiple images", {
+  skip_if_not_installed("magick")
+
   ft <- flextable(df)
   ft <- mk_par(ft, j = "plot", value = as_paragraph(as_image(rlogo, width = .3, height = 0.23)), part = "header")
   ft <- mk_par(ft, j = "plot", value = as_paragraph(as_image(plot, guess_size = TRUE)))