[Rd] Pb with .findInheritedMethods

[John Chambers]

Herve Pages wrote:
> ....
> More generally I don't see what's wrong with not passing
> to callNextMethod all the arguments coming from the call
> to new:
>
>     setClass("A", representation(toto="integer"))
>     setMethod("initialize", "A", function(.Object, toto0) {.Object at toto
>     <- as.integer(toto0); .Object})
>     new("A", 45.1)
>
>     setClass("Ab", contains="A")
>     setMethod("initialize", "Ab", function(.Object, x, y)
>     callNextMethod(.Object, x*y+1))
>     new("Ab", 5, 2)
>   

As I mentioned, this relates to writing methods for initialize().   
Imagine someone else extends the class "Ab", for which you wrote a 
method.  If they add slots to their class and you do not pass down ... 
to callNextMethod(), then you have blocked users from setting values for 
those slots in calls to new(), since the ... argument is thrown away by 
your method.

So in your example, it's more socially responsible to add "..." as a 
formal argument to your method, and then to pass it on to callNextMethod():

   setMethod("initialize", "Ab", function(.Object, x, y, ...)
    callNextMethod(.Object, x*y+1, ...))

The other aspect to this is that the last specialized method in your chain of class definitions should end up with:
   callNextMethod(.Object, ...)
Then the default initialize() method will set values for named slots.  Again, the point is to allow others to extend your class definitions.



>
> Regards,
>
> H.
>
>