RetrieveFeature <- function(exp, subject, item, feature) {
eval(parse(text = paste(deparse(substitute(exp)),
"$subject$subject.", subject,
"$item$item.", item,
"$", feature, sep = "")))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.