R/adjacentEdges.R

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)
  }
}
Sage-Bionetworks/synapseCopyProject documentation built on May 9, 2019, 12:15 p.m.