#' Callback
#'
#' Create a callback function.
#'
#' @param js A JavaScript function as string.
#'
#' @export
cb <- function(js) {
if(missing(js))
stop("missing JavaScript js", call. = FALSE)
htmlwidgets::JS(js)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.