## Parse JSON records to a table
##
## Author: Matthew D. Furia <matt.furia@sagebase.org>
##############################################################################
.parseJSONRecords <-
function(json.list)
{
resultsTable <- data.frame()
for(i in seq_along(json.list)){
thisRow <- .parseSingleRow(json.list[[i]])
if(is.null(resultsTable)){
resultsTable <- thisRow
}else{
resultsTable <- .rowMerge(resultsTable, thisRow)
}
}
return(resultsTable)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.