tests/testthat/test-utility_functions.R

In 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_colnames works", {
  expect_equal(
    schex:::.make_hexbin_colnames(c("A", "B"), "col"),
    c("col_prop_A", "col_prop_B")
  )
})

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)), "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), 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),
    matrix(c(rep(2/3,3), rep(1/3,3)), nrow=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), 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(.make_hexbin_function(x, action, cID), 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), 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))
})

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

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

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

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

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

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