.setUp <-
function()
{
# Crawl
synObj <- crawlSynapseObject('syn3157162')
synObj <- makeHeadFolder(synObj,'syn3157162')
populateNewDirectory2('syn3157160',synObj,topId = 'syn3157160')
}
.tearDown <-
function()
{
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.