On Feb 3, 2011, at 10:27 AM, Ernest Adrogué wrote:
Hi,
Suppose a function that checks an object:
stop.if.dims <- function(x) {
if (! is.null(dim(x))) {
stop("cannot handle dimensional data")
}
}
> mtx <- matrix(c(1,0,0,1), 2)
> stop.if.dims <- function(x) { objname <- deparse(substitute(x))
+ if (! is.null(dim(x))) {
+ stop(paste(objname,"cannot handle dimensional data") )
+ }
+ }
> stop.if.dims(mtx)
Error in stop.if.dims(mtx) : mtx cannot handle dimensional data
This would be used by other functions that can only work with
dimensionless objects. The problem is the error message would need to
include the name of the function that called stop.if.dims, so that the
user knows which function got an argument that was incorrect.
How do I do this? Or maybe there is another way...
--
Ernest
______________________________________________
[email protected] 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.
David Winsemius, MD
West Hartford, CT
______________________________________________
[email protected] 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.
