https://github.com/cran/Hmisc
Tip revision: d74b0cd78ca68452c3b29351f5de807a3a55c506 authored by Charles Dupont on 26 April 2007, 16:08:11 UTC
version 3.3-2
version 3.3-2
Tip revision: d74b0cd
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)