Nothing
env_returnGlobalProductionRates <-
function(xmlResultFile)
{
allGPR<-list()
for(gpr in 1:xmlSize(xmlResultFile[[1]][[2]]))
{
soluteName<-xmlAttrs(xmlResultFile[[1]][[2]][[gpr]])[[1]]
gprlist <- list()
gprlist[[soluteName]]<-xmlResultFile[[1]][[2]][[gpr]][[1]]
# Add to the overall array
allGPR<-append(allGPR,gprlist)
}
return(allGPR)
}
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.