#' @importFrom methods slot
#' @importFrom stats setNames
slot_getter <- function(x, slots) {
setNames(lapply(slots, function(i) methods::slot(x, i)), slots)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.