ReplaceSubjects <- function(exp1, exp2) {
sub <- exp2$reports$subjects$subid
exp <- DeleteSubjects(exp1, sub)
exp <- AddSubjects(exp, exp2)
return(exp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.