Nothing
env_returnConcentrationAndRateChange <-
function(xmlResultFile)
{
allBulkSolutes<-list()
for(element in 1:xmlSize(xmlResultFile[[1]][[3]]))
{
if(xmlName(xmlResultFile[[1]][[3]][[element]])=="solute")
{
soluteName<-paste(xmlAttrs(xmlResultFile[[1]][[3]][[element]])[[1]],"_Concentration",sep="")
}
else
{
soluteName<-paste(xmlAttrs(xmlResultFile[[1]][[3]][[element]])[[1]],"_UptakeRate",sep="")
}
gprlist <- list()
gprlist[[soluteName]]<-xmlResultFile[[1]][[3]][[element]][[1]]
# Add to the overall array
allBulkSolutes<-append(allBulkSolutes,gprlist)
}
return(allBulkSolutes)
}
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.