Nothing
list2xml <-
function (filepath, M) {
# load XML library
library(XML)
N <- xmlNode("file", attrs = c(path=filepath))
for (i in 1:length(M)){
n <- names(M[i])
c <- M[i][[1]]
# add node to XML
z = xmlNode("metabolite_set", attrs = c(name=n)) # metabolite set
for (j in 1:length(c)){
z <- append.xmlNode(z, xmlNode("compound",c[j])) # metabolite ID
}
N <- append.xmlNode(N,z)
}
return(N)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.