Nothing
# Simple wrapper around the stock R matrix class to keep a few extra booking
# details.
setClassUnion("OptionalCall", c("call", "NULL"))
setClass("DenseMatrix",
slots = c(call = "OptionalCall"),
contains = "matrix")
#' @export
as.matrix.DenseMatrix <- function(x, ...) { x@.Data }
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.