Nothing
SampleArrayData <- R6Class(
inherit = ArrayData,
public = list(
initialize = function(data){
if('array' %in% class(data)){
private$.arr = data
private$.dims = dim(data)
private$.ndim = length(private$.dim)
private$.dnames = dimnames(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.