setMethod("bpisup", "ANY", function(x) FALSE)
setMethod("bpisup", "missing",
function(x)
{
x <- registered()[[1]]
bpisup(x)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.