From c2477caf04c6b6cb47e380ae3da981f9a5b58170 Mon Sep 17 00:00:00 2001 From: Hugo Gruson Date: Fri, 8 May 2026 19:14:48 +0200 Subject: [PATCH 1/2] Reactivate skipped test --- tests/testthat/test-plotImage.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/tests/testthat/test-plotImage.R b/tests/testthat/test-plotImage.R index 09a7fcb..60fdbaa 100644 --- a/tests/testthat/test-plotImage.R +++ b/tests/testthat/test-plotImage.R @@ -19,8 +19,7 @@ test_that(".is_rgb()", { expect_error(.is_rgb(label(x, 1))) }) -test_that(".ch_idx()", { testthat::skip() - # TODO: fix this! +test_that(".ch_idx()", { # get indices of channels expect_equal(.ch_idx(image(x,1), ch=c(2,0,1)), c(3,1,2)) # return first if no matching channel From b7cf0a20a484cde56a63582f304568a0ebc12b14 Mon Sep 17 00:00:00 2001 From: Hugo Gruson Date: Fri, 8 May 2026 19:23:13 +0200 Subject: [PATCH 2/2] Add snapshot test --- DESCRIPTION | 3 +- .../_snaps/plotSpatialData/overlays.svg | 2310 +++++++++++++++++ tests/testthat/test-plotSpatialData.R | 24 + 3 files changed, 2336 insertions(+), 1 deletion(-) create mode 100644 tests/testthat/_snaps/plotSpatialData/overlays.svg create mode 100644 tests/testthat/test-plotSpatialData.R diff --git a/DESCRIPTION b/DESCRIPTION index 2e0439c..e2afed9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -54,7 +54,8 @@ Suggests: patchwork, Rgraphviz, SpatialData.data, - testthat + testthat, + vdiffr Remotes: HelenaLC/SpatialData, HelenaLC/SpatialData.data diff --git a/tests/testthat/_snaps/plotSpatialData/overlays.svg b/tests/testthat/_snaps/plotSpatialData/overlays.svg new file mode 100644 index 0000000..3e84c58 --- /dev/null +++ b/tests/testthat/_snaps/plotSpatialData/overlays.svg @@ -0,0 +1,2310 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 0 +10 +20 +30 +40 +50 +60 + + + + + + + +y + + + + + + + + 0 +10 +20 +30 +40 +50 +60 +x +layered + + + + + + + + + + + + + 0 +10 +20 +30 +40 +50 +60 + + + + + + + +y + + + + + + + + 0 +10 +20 +30 +40 +50 +60 +x +image + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +10 +20 +30 +40 +50 +60 + + + + + + +y + + + + + + +10 +20 +30 +40 +50 +60 +x +labels + + + + + + + + + + + + + + + + +20 +25 +30 +35 +40 +45 +50 + + + + + + + + + + + + + + + +15 +20 +25 +30 +35 +40 +45 +50 +circles + + + + + + + + + + + + + + + + +25 +30 +35 +40 +45 +50 +55 + + + + + + + + + + + + + + + +20 +25 +30 +35 +40 +45 +50 +55 +polygons + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +10 +20 +30 +40 +50 +60 + + + + + + + + + + + + +10 +20 +30 +40 +50 +60 +points +overlays + + diff --git a/tests/testthat/test-plotSpatialData.R b/tests/testthat/test-plotSpatialData.R new file mode 100644 index 0000000..f38a308 --- /dev/null +++ b/tests/testthat/test-plotSpatialData.R @@ -0,0 +1,24 @@ +test_that("regression test of overlays", { + x <- system.file("extdata", "blobs.zarr", package="SpatialData") |> + readSpatialData() + + p <- plotSpatialData() + # joint + all <- p + + plotImage(x) + + plotLabel(x, a=1/3) + + plotShape(x, 1) + + plotShape(x, 3) + + plotPoint(x, c="genes") + + ggplot2::ggtitle("layered") + # split + one <- list( + p + plotImage(x) + ggplot2::ggtitle("image"), + p + plotLabel(x) + ggplot2::ggtitle("labels"), + p + plotShape(x, 1) + ggplot2::ggtitle("circles"), + p + plotShape(x, 3) + ggplot2::ggtitle("polygons"), + p + plotPoint(x, c="genes") + ggplot2::ggtitle("points")) + fig <- patchwork::wrap_plots(c(list(all), one), nrow=2) + + vdiffr::expect_doppelganger("overlays", fig) +})