PlotFunctionNames = c("plot", "hist", "points", "lines", "legend", "jitter", "segments")
setGeneric("makesPlot", function(x, ...)
standardGeneric("makesPlot"))
setMethod("makesPlot", "ScriptNodeInfo",
function(x, ...)
any(PlotFunctionNames %in% x@functions))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.