tests/testthat/test-documentData.R

In ggpedigree: Visualizing Pedigrees with 'ggplot2' and 'plotly'

test_that("data loads silently", {
  expect_silent(data(redsquirrels))
  expect_silent(data(ASOIAF))
})


test_that("test that data loads", {
  library(ggpedigree)
  expect_true(exists("redsquirrels"))
  expect_true(is.data.frame(redsquirrels))
  expect_true(nrow(redsquirrels) > 0)
  expect_true(ncol(redsquirrels) > 0)
  expect_true(all(c("ars_max", "ars_med", "ars_min", "ars_sd", "ars_n", "year_first", "year_last") %in% names(redsquirrels)))
})

test_that("ASOIAF data loads", {
  expect_silent(data(ASOIAF))
  expect_true(nrow(ASOIAF) > 600)
  expect_true(nrow(ASOIAF) == max(ASOIAF$id, na.rm = TRUE))
  checkis_acyclic <- BGmisc::checkPedigreeNetwork(ASOIAF,
    personID = "id",
    momID = "momID",
    dadID = "dadID",
    verbose = TRUE
  )
  expect_true(checkis_acyclic$is_acyclic)
})