Commit fd0275c6 authored by Yong Liu's avatar Yong Liu

Refs #5680, give error msg while report

parent 70d6c434
......@@ -4498,14 +4498,16 @@ compareDataExport <- function(comparedScript, len, ...){
if ( svalue(repType, index=TRUE) == 1 ) {
internal <- TRUE
}
report(
tryCatch(report(
obj,
outdir=outdir,
filename=filename,
format=svalue(outputRadio),
title=svalue(repTitle),
internal=internal
)
), error=function(e){
gmessage(paste("There was a problem while preparing your report: '",e,"'"), "SDCMicro Problem", icon="error")
});
dispose(reportDialog)
})
}else{
......
Markdown is supported
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