#' @importFrom methods is
# is what we have a formula, make it if you can, else error
fixformula <- function(formula){
if(!is(formula, "formula")){
if(!is(try(as.formula(formula)), "formula")){
stop("Invalid formula")
}
}else{
formula <- paste(as.character(formula), collapse="")
}
return(formula)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.