#' Read built-in object from package
#'
#' Consistent wrapper around [data()] that forces the promise. This is also a
#' stronger parallel to loading data from a file.
#'
#' @param x Name (character string) of data set to read.
#' @param package Name of package from which to find data set. By default, all
#' attached packages are searched and then the 'data' subdirectory (if present)
#' of the current working directory.
#'
#' @return An object of the built-in class of `x`.
#' @export
#' @examples
#' read_builtin("mtcars", "datasets")
read_builtin <- function(x, package = NULL) {
warn_to_error <- function(e) {
stop(conditionMessage(e), call. = FALSE)
}
check_string(x)
check_string(package, optional = TRUE)
tryCatch(
warning = function(e) warn_to_error(e),
expr = {
res <- utils::data(list = x, package = package, envir = environment(), verbose = FALSE)
get(res[[1]], envir = environment())
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.