adjacentEdges <- function(synId){
str <- paste('SELECT id, name, concreteType FROM entity WHERE parentId=="',synId,'"',sep='')
foo <- synapseClient::synQuery(str,blockSize = 300)
res <- foo$collectAll()
if(ncol(res)==0){
return(NULL)
}else{
return(res)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.