Commit c3f0c417 authored by Habil, Ardalan (arhab001)'s avatar Habil, Ardalan (arhab001)
Browse files

Success messages and validation now in R

parent 0182df10
......@@ -565,5 +565,12 @@ writeSBML<- function(morg=NULL,level=2,version=4,fbcLevel=0,filename="export.xml
as.logical(validation),
as.character(deformatGene(allgenes))
)
# SUCESS MESSAGES
if(success)
{
message(paste("Wrote file ",filename,"\n",sep=""), appendLF = FALSE);
if (validation)print(validateSBMLdocument(filename));
}
else message(paste("Could not write file ",filename,"\n",sep=""), appendLF = FALSE);
return (success)
}
\ No newline at end of file
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment