sys.s
## Improvements by Sebastian Weber <Sebastian.Weber@aventis.com> 26Aug03
sys <- if(.R.) function(command, text=NULL, output=TRUE) {
cmd <- if(length(text))
paste(command,text)
else
command
if(under.unix)
system(cmd, intern=output)
else
shell(cmd, wait=TRUE, intern=output)
} else if(under.unix) function(..., minimized) unix(...) else function(...,minimized=FALSE) dos(..., minimized=minimized)