Thanks, Berwin. That works just great! --sundar
On Tue, Mar 2, 2010 at 12:57 AM, Berwin A Turlach <ber...@maths.uwa.edu.au>wrote: > G'day Sundar, > > On Mon, 1 Mar 2010 23:46:55 -0800 > Sundar Dorai-Raj <sdorai...@gmail.com> wrote: > > > Thanks for the input, but I don't want "try" in the Sweave output. I > > want the output to look just like it does in the console, as if an > > uncaptured error really did occur. > > I don't think that you will get around using "try"; and you will have > to work moderately hard to make the output appear as it does on the > console. Probably somewhere along the lines: > > ++++++++++++++++++++ Sweave code start ++++++++++++++++++++++++++ > <<Function-4a>>= > MySqrt <- function(x) { > if (missing(x)) { > stop("'x' is missing with no default") > } > if (!is.numeric(x)) { > stop("'x' should only be numeric") > } > if (x < 0) { > stop("'x' should be non-negative") > } > return(sqrt(x)) > } > @ > > <<echo=FALSE>>= > tmp <- try(MySqrt()) > @ > <<eval=FALSE>>= > MySqrt() > @ > <<echo=FALSE>>= > cat(tmp[1]) > @ > > <<echo=FALSE>>= > tmp <- try(MySqrt("a")) > @ > <<eval=FALSE>>= > MySqrt("a") > @ > <<echo=FALSE>>= > cat(tmp[1]) > @ > > <<echo=FALSE>>= > tmp <- try(MySqrt(-2)) > @ > <<eval=FALSE>>= > MySqrt(-2) > @ > <<echo=FALSE>>= > cat(tmp[1]) > @ > > <<>>= > MySqrt(4) > @ > +++++++++++++++ Sweave code end ++++++++++++++++++++++++++++++++++ > > Now what I would like to know is how to include easily warning messages > in my Sweave output without having to try whether Jean Lobry's [1] hack > still works. :) > > HTH. > > Cheers, > > Berwin > > [1] > https://www.stat.math.ethz.ch/pipermail/r-help/2006-December/121975.html > > ========================== Full address ============================ > Berwin A Turlach Tel.: +61 (8) 6488 3338 (secr) > School of Maths and Stats (M019) +61 (8) 6488 3383 (self) > The University of Western Australia FAX : +61 (8) 6488 1028 > 35 Stirling Highway > Crawley WA 6009 e-mail: ber...@maths.uwa.edu.au > Australia http://www.maths.uwa.edu.au/~berwin > [[alternative HTML version deleted]] ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.