Nothing
readSimResultFile <-
function(resultFolder,resultFileType,timePoint)
{
opSys<-.Platform$OS.type
if(opSys=="windows")
{
# REPLACE THE SLASH IN THE FILEPATH IF PRESENT
resultFolder<-gsub("\\\\","/",resultFolder)
}
#### READ IN THE XML FILE
doc <- xmlTreeParse(paste(resultFolder,"/",resultFileType,"/",resultFileType,"(",timePoint,").xml",sep=""))
#### GET THE DATA
xmlResultData<-xmlRoot(doc)
return(xmlResultData)
}
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.