Nothing
#' #' @keywords internal
#' #'
#' #' @export
#' print.explain <- function(x, ...) {
#' if (is.matrix(x)) {
#' x <- data.matrix(as.data.frame(x))
#' }
#' print(x)
#' invisible(x)
#' }
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.