#' Database info queries
#'
#' Return the name and version number of current database.
#' @return a dataframe.
#' @seealso \href{http://www.reactome.org}{\code{Reactome}}
#'
#' @export
#' @rdname database
rtDatabase <- function(){
url = 'http://www.reactome.org/ContentService/data/database/'
tmp = lapply(c('name', 'version'),
function(str) content(GET(paste(url, str, sep = ''))))
dt = data.frame(name = tmp[[1]], version = tmp[[2]], stringsAsFactors = F)
cat(str_c(dt$name, '\n', dt$version))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.