EpivizDataCache <- setRefClass("EpivizDataCache",
contains="VIRTUAL",
field=list(
resource="ANY",
cacheRange="GRanges"),
methods=list(
initialize=function(cacheRange=GRanges(), ...) {
cacheRange <<- cacheRange
callSuper(...)
},
getObject=function(query) {
stop("calling 'getObject' on virtual class")
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.