R/class_pedigree.R

Defines functions pedigree_validate pedigree_new pedigree_init

pedigree_init <- function(parent, child, index) {
  pedigree_new(parent, child, as.integer(index))
}

pedigree_new <- function(parent = NULL, child = NULL, index = NULL) {
  force(parent)
  force(child)
  force(index)
  environment()
}

pedigree_validate <- function(pedigree) {
  tar_assert_correct_fields(pedigree, pedigree_new)
  tar_assert_name(pedigree$parent)
  tar_assert_name(pedigree$child)
  tar_assert_match(pattern = pedigree$parent, x = pedigree$child)
  tar_assert_int(pedigree$index)
  tar_assert_positive(pedigree$index)
  invisible()
}

Try the targets package in your browser

Any scripts or data that you put into this service are public.

targets documentation built on Oct. 3, 2024, 1:11 a.m.