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

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)
  ASOIAF_df <- as.data.frame(ASOIAF)
  ggped <- ggPedigree(ASOIAF_df,
    famID = "famID",
    personID = "id",
    momID = "momID",
    dadID = "dadID",
    #   code_male = "M",
    config = list(
      add_phantoms = TRUE,
      code_male = "M",
      override_many2many = TRUE
    )
  )
  expect_true(inherits(ggped, "ggplot"))
})


test_that("redsquirrels data structure", {
  data(redsquirrels)
  #'
  #' # View the structure of the dataset
  str(redsquirrels)

  #'   # Select one family to plot
  family_data <- subset(redsquirrels, famID == 160)
  #'
  #'   # Create a pedigree plot
  expect_no_error(ggPedigree(family_data,
    personID = "personID",
    momID = "momID",
    dadID = "dadID",
    # sex = "sex",
    config = list(
      add_phantoms = TRUE,
      code_male = "M",
      code_female = "F",
      override_many2many = TRUE
    )
  ))
})