# Check group variable
.check.group <- function(x, group) {
if(isFALSE(any(group %in% sample_variables(x)))){
stop("'group' variable must be in sample_variables(x)")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.