##' @rdname qhist
##' @export
qspine = function(x, data, ...) {
do.call(qhist, list(x = as.character(as.list(match.call()[-1])$x),
data = data, spine = TRUE, ...))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.