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-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 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) +})