tests/testthat/test-utility_functions.R

In SaskiaFreytag/schex: Hexbin plots for single cell omics data

test_that("get_mode works", {
    expect_equal(schex:::.get_mode(c(2, 2, 2, 2, 1, 4, 5)), 2)
})


test_that("make_hexbin_function majority", {
    x <- as.factor(rep(c("A", "A", "B"), 3))
    action <- "majority"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_equal(levels(schex:::.make_hexbin_function(x, action, cID, no = 1)), "A")
})

test_that("make_hexbin_function mode", {
    x <- rep(c(2, 2, 1), 3)
    action <- "mode"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_equal(schex:::.make_hexbin_function(x, action, cID, no = 1), c(2, 2, 2))
})

test_that("make_hexbin_function prop", {
    x <- as.factor(rep(c("A", "A", "B"), 3))
    action <- "prop"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_equal(
        schex:::.make_hexbin_function(x, action, cID, no = 1),
        rep(2 / 3, 3)
    )
})

test_that("make_hexbin_function mean", {
    x <- rep(c(2, 3, 1), 3)
    action <- "mean"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_equal(schex:::.make_hexbin_function(x, action, cID, no = 1), c(2, 2, 2))
})

test_that("make_hexbin_function median", {
    x <- rep(c(2, 3, 1), 3)
    action <- "median"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_equal(schex:::.make_hexbin_function(x, action, cID, no = 1), c(2, 2, 2))
})

test_that("make_hexbin_function prop_0", {
    x <- rep(c(0, 0, 1), 3)
    action <- "prop_0"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_equal(schex:::.make_hexbin_function(x, action, cID, no = 1), c(1 / 3, 1 / 3, 1 / 3))
})

test_that("make_hexbin_function error action", {
    x <- rep(c(2, 2, 1), 3)
    action <- "error"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})

test_that("make_hexbin_function error prop", {
    x <- rep(c(2, 2, 1), 3)
    action <- "prop"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})

test_that("make_hexbin_function error majority", {
    x <- rep(c(2, 2, 1), 3)
    action <- "majority"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})

test_that("make_hexbin_function error mode", {
    x <- as.factor(rep(c("A", "A", "B"), 3))
    action <- "mode"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})

test_that("make_hexbin_function error mean", {
    x <- as.factor(rep(c("A", "A", "B"), 3))
    action <- "mean"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})

test_that("make_hexbin_function error median", {
    x <- as.factor(rep(c("A", "A", "B"), 3))
    action <- "median"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})

test_that("make_hexbin_function error prop_0", {
    x <- as.factor(rep(c("A", "A", "B"), 3))
    action <- "prop_0"
    cID <- c(1, 1, 1, 2, 2, 2, 3, 3, 3)
    expect_error(schex:::.make_hexbin_function(x, action, cID, no = 1))
})