#' @export
inst <- function(i="model") {
system.file(i, package="maxmodelr")
}
#' @export
inst_rds <- function(i="model") {
list.files(inst(i), pattern="\\.RDS", full.names = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.