ear.hn <- mongo("histNodes","EARecords")
tapp <- "ecd://epls.coe.fsu.edu/P4test"
nodes <- c("Physics","Energy")
paste('"',nodes,'"',sep="",collapse=",")
sprintf('{"app":"%s", "Nodes":[%s]}',tapp,
paste('"',nodes,'"',sep="",collapse=","))
ear.hn$insert(sprintf('{"app":"%s", "Nodes":[%s]}',tapp,
paste('"',nodes,'"',sep="",collapse=",")))
ear.hn$find(buildJQuery(app=tapp),)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.