tests/testthat/test_filterReport.R

In rmsharp/nprcmanager: Genetic Tools for Colony Management

#' Copyright(c) 2017-2020 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("filterReport")
library(testthat)

rpt <- nprcgenekeepr::pedWithGenotypeReport$report
test_that("filterReport correctly subsets reports based on provide IDs", {
  rpt1 <- filterReport(c("GHH9LB", "BD41WW"), rpt)
  expect_equal(nrow(rpt1), 2)
  rpt1 <- filterReport(c(), rpt)
  expect_equal(nrow(rpt1), 0)
  rpt1 <- filterReport(rpt$id, rpt)
  expect_equal(nrow(rpt1), nrow(rpt))
})