tests/testthat/test-mark.R

In ggalign: A 'ggplot2' Extension for Composable Visualization

test_that("`ggmark()` horizontal works well", {
    set.seed(123)
    small_mat <- matrix(rnorm(72), nrow = 9)
    rownames(small_mat) <- paste0("row", seq_len(nrow(small_mat)))
    colnames(small_mat) <- paste0("column", seq_len(ncol(small_mat)))

    expect_doppelganger(
        "ggmark horizontal, with mark_line()",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_right() +
            align_kmeans(3L) +
            ggmark(mark_line()) +
            geom_boxplot(aes(.names, value))
    )
    expect_doppelganger(
        "ggmark horizontal, with mark_tetragon()",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_right() +
            align_kmeans(3L) +
            ggmark(mark_tetragon()) +
            geom_boxplot(aes(.names, value))
    )
    expect_doppelganger(
        "ggmark horizontal, with mark_triangle() orientation plot",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_right() +
            align_kmeans(3L) +
            ggmark(mark_triangle(orientation = "plot")) +
            geom_boxplot(aes(.names, value))
    )
    expect_doppelganger(
        "ggmark horizontal, with mark_triangle() orientation observation",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_right() +
            align_kmeans(3L) +
            ggmark(mark_triangle(orientation = "observation")) +
            geom_boxplot(aes(.names, value))
    )
})

test_that("`ggmark()` vertical works well", {
    set.seed(123)
    small_mat <- matrix(rnorm(72), nrow = 9)
    rownames(small_mat) <- paste0("row", seq_len(nrow(small_mat)))
    colnames(small_mat) <- paste0("column", seq_len(ncol(small_mat)))

    expect_doppelganger(
        "ggmark vertical, with mark_line()",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_top() +
            align_kmeans(3L) +
            ggmark(mark_line()) +
            geom_boxplot(aes(.names, value))
    )
    expect_doppelganger(
        "ggmark vertical, with mark_tetragon()",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_top() +
            align_kmeans(3L) +
            ggmark(mark_tetragon()) +
            geom_boxplot(aes(.names, value))
    )
    expect_doppelganger(
        "ggmark vertical, with mark_triangle() orientation plot",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_top() +
            align_kmeans(3L) +
            ggmark(mark_triangle(orientation = "plot")) +
            geom_boxplot(aes(.names, value))
    )
    expect_doppelganger(
        "ggmark vertical, with mark_triangle() orientation observation",
        ggheatmap(small_mat) +
            theme(axis.text.x = element_text(hjust = 0, angle = -60)) +
            anno_top() +
            align_kmeans(3L) +
            ggmark(mark_triangle(orientation = "observation")) +
            geom_boxplot(aes(.names, value))
    )
})