SampleMatrixData <- R6Class(
inherit = MatrixData,
public = list(
initialize = function(data){
if('matrix' %in% class(data)){
private$.mat = data
private$.nrow = nrow(data)
private$.ncol = ncol(data)
private$.rnames = rownames(data)
private$.cnames = colnames(data)
}
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.