fix logo lookup

r-lib · May 6, 2024 · eba062e · eba062e
1 parent b634f55
commit eba062e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
diff --git a/tests/testthat/test-images.R b/tests/testthat/test-images.R
@@ -2,7 +2,10 @@ test_that("images are picked up", {
 
   skip_if_not(getRversion() >= "4.1")
 
-  logo <- system.file("help", "figures", "logo.png", package = "marquee")
+  # Depending on how we are testing the logo may reside in one of these locations
+  logo <- system.file("man", "figures", "logo.png", package = "marquee")
+  if (logo == "") logo <- system.file("help", "figures", "logo.png", package = "marquee")
+
   grob <- textGrob("test")
   gg <- ggplot2::ggplot()
   patch <- patchwork::wrap_plots(gg, gg)