[R] capturing errors in Sweave

[Sundar Dorai-Raj]

Hi,

I'm writing a manual using Sweave and I want to be able to print errors from
bad code. Here's an example:

<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))
}
MySqrt()
MySqrt("a")
MySqrt(-2)
MySqrt(4)
@

And I would like the output to be:

MySqrt <- function(x) {
...
}
> MySqrt()
Error in MySqrt() : 'x' is missing with no default
> MySqrt("a")
Error in MySqrt("a") : 'x' should only be numeric
> MySqrt(-2)
Error in MySqrt(-2) : 'x' should be non-negative
> MySqrt(2)
[1] 1.414214

I.e. I want the Error statements to print in the tex file and not just make
Sweave to bomb.

Thanks,

--sundar

        [[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.