Nothing
pluck <- function(x, name, type) {
if (missing(type)) {
lapply(x, "[[", name)
} else {
vapply(x, "[[", name, FUN.VALUE = type)
}
}
pluck_names <- function(x, y) {
strtrim(strxt(x, paste0(names(y), collapse = "|"))[[1]])
}
strxt <- function(string, pattern) {
regmatches(string, gregexpr(pattern, string))
}
strtrim <- function(str) gsub("^\\s+|\\s+$", "", str)
assert <- function(x, y) {
if (!is.null(x)) {
if (!inherits(x, y)) {
stop(deparse(substitute(x)), " must be of class ",
paste0(y, collapse = ", "),
call. = FALSE
)
}
}
}
parse_eval <- function(x, y, messy = FALSE) {
strg <- if (messy) paste0(x, tolower(y), "_messy") else paste0(x, tolower(y))
res <- tryCatch(
eval(parse(text = strg)),
error = function(E) E
)
if (inherits(res, "error")) {
NULL
} else {
res
}
}
rep_licate <- function(n, expr, type) {
vapply(integer(n), eval.parent(substitute(function(...) expr)), type)
}
# test if an input has probabilities associated with character strings
has_probs <- function(x) {
is.list(x) && is.numeric(x[[1]])
}
check4pkg <- function(x) {
if (!requireNamespace(x, quietly = TRUE)) {
stop("Please install ", x, call. = FALSE)
} else {
invisible(TRUE)
}
}
`%||%` <- function(x, y) if (is.null(x)) y else x
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.