#' validate_family
#'
#' Checks if family is allowed
#'
#' @param family A family \code{\link[base]{character}} string or a
#' \code{\link[stats]{family}} function.
#'
#' @return An object of class \code{\link[stats]{family}}.
#'
#' @noRd
validate_family <- function(family) {
if (inherits(family, "function")) {
family <- family()
} else if (is.character(family)) {
family <- get(family)(link = "identity")
}
if (!inherits(family, "family")) {
stop("Argument \"family\" either is not an actual family, ",
"or is of incorrect class.")
}
fam_tag <- family$family
if (!fam_tag %in% names(mod_fams)) {
stop("You have specified family as ", fam_tag, ", which is not currently",
" implemented. bnec only allows: ", paste0(mod_fams, collapse = ", "),
".")
}
family
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.