tests/testthat/test-subset_allelic.R

In frhl/our: genetic data analysis

context('subset_allelic')


test_that("standard functionality", {


  df = data.frame(X = c(rep(c('C','B','C'),2), 'A','Q'), Y = runif(8))
  expect_true(all(c("B","C") %in% subset_allelic(df, return.everything = F)[[1]]))
  expect_true(all(!c("B","C") %in% subset_allelic(df, how = "BI", return.everything = F)[[1]]))
  expect_true(all(c("A","Q") %in% subset_allelic(df, how = "BI", return.everything = F)[[1]]))

})