DM.checkExistence <- function( variables = NULL ){
if ( !is.null(variables) ){
it.exists <- sapply(variables,exists)
if ( any(!it.exists) ){
to.print <- paste("It looks like you didn't define the variable:", variables[!it.exists] )
return( list(FALSE,to.print) )
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.