tests/testthat/test-insert_legend.R

In APackOfTheClones: Visualization of Clonal Expansion for Single Cell Immune Profiles

test_that("overlayLegend() and removeLegend() works", {
    skip_on_ci()
    data("combined_pbmc")

    expect_doppelganger(
        "overlayLegend plot",
        vizAPOTC(combined_pbmc, verbose = FALSE)
    )

    expect_doppelganger(
        "overlayLegend plot",
        vizAPOTC(combined_pbmc,  add_size_legend = FALSE, verbose = FALSE) %>%
            overlayLegend()
    )

    expect_doppelganger(
        "removeLegend plot",
        vizAPOTC(combined_pbmc, add_size_legend = FALSE, verbose = FALSE)
    )

    expect_doppelganger(
        "removeLegend plot",
        vizAPOTC(combined_pbmc, verbose = FALSE) %>% removeLegend()
    )

    expect_doppelganger(
        "overlayLegend plot",
        vizAPOTC(combined_pbmc, verbose = FALSE) %>%
            removeLegend() %>%
            overlayLegend()
    )

    expect_doppelganger(
        "removeLegend plot",
        vizAPOTC(combined_pbmc, verbose = FALSE) %>%
            removeLegend() %>%
            overlayLegend() %>%
            removeLegend()
    )
})