frame.has.variables <-
function (the.frame, the.variables)
{
all(!is.na(match(the.variables, names(get(envir = .frame0, the.frame)))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.