tests/testthat/test-filters.R

In romic: R for High-Dimensional Omic Data

test_that("Try all of the filters", {

  filter_tomic(
    brauer_2008_triple,
    filter_type = "category",
    filter_table = "features",
    filter_variable = "BP",
    filter_value = c("biological process unknown", "vacuolar acidification")
  )$features %>%
    distinct(BP) %>%
    expect_snapshot()

  filter_tomic(
    brauer_2008_triple,
    filter_type = "category",
    filter_table = "samples",
    filter_variable = "DR",
    filter_value = 0.05
  )$samples %>%
    nrow() %>%
    expect_equal(6)

  filter_tomic(
    brauer_2008_tidy,
    filter_type = "range",
    filter_table = "samples",
    filter_variable = "DR",
    filter_value = c(0, 0.1)
    ) %>%
    get_tomic_table("samples") %>%
    nrow() %>%
    expect_equal(12)

  filter_tomic(
    brauer_2008_triple,
    filter_type = "quo",
    filter_table = "features",
    filter_value = rlang::quo(BP == "biological process unknown")
    )$features %>%
    distinct(BP) %>%
    nrow() %>%
    expect_equal(1)

  # edge cases
  filter_tomic(
    brauer_2008_triple,
    filter_type = "category",
    filter_table = "features",
    filter_variable = "bar",
    filter_value = "biological process unknown"
    ) %>%
    expect_snapshot(error = TRUE)

  expect_warning(
    filter_tomic(
      brauer_2008_triple,
      filter_type = "quo",
      filter_table = "features",
      filter_variable = "bar",
      filter_value = rlang::quo(BP == "biological process unknown")
    ),
    regexp = "filter_type is quo"
  )

})