From: Gabor Grothendieck <ggrothendieck_at_gmail.com>

Date: Thu 28 Apr 2005 - 08:21:10 EST

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Thu Apr 28 08:29:07 2005

Date: Thu 28 Apr 2005 - 08:21:10 EST

On 4/27/05, Ali - <saveez@hotmail.com> wrote:

*>
*

> Assume we have a function like:

*>
**> foo <- function(x, y)
**>
**> how is it possible to define a binary indexing operator, denoted by $, so
**> that
**>
**> x$y
**>
**> functions the same as
**>
**> foo(x, y)
*

Here is an example. Note that $ does not evaluate y so you have to do it yourself:

x <- structure(3, class = "myclass")

y <- 5

foo <- function(x,y) x+y

"$.myclass" <- function(x, i) { i <- eval.parent(parse(text=i)); foo(x, i) }
x$y # structure(8, class = "myclass")

[[alternative HTML version deleted]]

R-help@stat.math.ethz.ch mailing list

https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Thu Apr 28 08:29:07 2005

*
This archive was generated by hypermail 2.1.8
: Fri 03 Mar 2006 - 03:31:27 EST
*