From eba062e70d94cc7892accae51f3e46afa08f97f6 Mon Sep 17 00:00:00 2001 From: Thomas Lin Pedersen Date: Mon, 6 May 2024 14:37:28 +0200 Subject: [PATCH] fix logo lookup --- tests/testthat/Rplots.pdf | Bin 3830 -> 3830 bytes tests/testthat/test-images.R | 5 ++++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf index 15f81a6ea99e353cc497cc262618cf526040d063..e7b0c2e5d2671641ef26f2a9dbbeb1d7b9f44ada 100644 GIT binary patch delta 21 acmew+`%QL&4YRqS(L{Sm5VbLSHXi^|iw4U8 delta 21 acmew+`%QL&4YP@{*+hFu5VbLSHXi^|wg%Av diff --git a/tests/testthat/test-images.R b/tests/testthat/test-images.R index b734678..3fa8930 100644 --- 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)