## Execute a Synapse Query
##
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################
synapseQuery <-
function(queryStatement)
{
## Constants
kPath <- "/query?query="
## end constants
if(!is.character(queryStatement)){
stop("a query statement must be supplied of R type character")
}
uri <- paste(kPath, curlEscape(queryStatement), sep="")
result <- synapseGet(uri=uri, anonymous=FALSE)
if(result$totalNumberOfResults == 0){
return(NULL)
}
## Parse response and prepare return value
return.val <- .jsonListToDataFrame(result$results)
attr(return.val, "totalNumberOfResults") <- result$totalNumberOfResults
return(return.val)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.