retrieveKGML.new <- function (pathway, organism, destfile, method = "auto", ...)
{
kgml <- paste0("http://rest.kegg.jp/get/",pathway,"/kgml")
download.file(kgml, destfile = destfile, method = method,
...)
return(invisible(kgml))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.