#' @title Function \code{s4list}
#' @description Turn an s4 object into a list
#' @export
#' @return a list of slots
#' @param obj an s4 object
s4list = function(obj){
lst = lapply(slotNames(obj), function(x){slot(obj, x)})
names(lst) = slotNames(obj)
lst
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.