crawlProject <- function(synId){
library(synapseClient)
synapseLogin()
crawledProject <- crawlSynapseEntity(synId)
#crawledProject <- synapseUtilities::makeHeadFolder(crawledProject,synId)
crawledProject$syn <- lapply(crawledProject$id,synapseClient::synGet,downloadFile=FALSE)
crawledProject$anno <- lapply(crawledProject$syn,synapseClient::synGetAnnotations)
return(crawledProject)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.