.Integrate <- function(...)
{
op <- getOption("show.error.messages")
options(show.error.messages=FALSE)
res <- try((integrate(...)));
options(show.error.messages=op)
if (inherits(res, "try-error"))
{
return(-Inf)
}
else
{
return(res$value)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.