The R Project SVN R

Rev

Rev 66423 | Rev 69213 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 66423 Rev 66586
Line 33... Line 33...
33 
        f1(a=a, b=b, c=c, d=d)
 33 
        f1(a=a, b=b, c=c, d=d)
34 
}
 34 
}
35 
 
 35 
 
36 
## use callGeneric both directly (f1) and indirectly (f2)
 36 
## use callGeneric both directly (f1) and indirectly (f2)
37 
## Latter failed pre rev. 66408; Bug ID 15937
 37 
## Latter failed pre rev. 66408; Bug ID 15937
38 
stopifnot(all.equal(c(1,2,3,4), as.vector(unlist(f1(2,3,4)))))
 38 
stopifnot(identical(c(1,2,3,4), as.vector(unlist(f1(2,3,4)))))
39 
stopifnot(all.equal(c(1,2,3,4), as.vector(unlist(f2(2,3,4)))))
 39 
stopifnot(identical(c(1,2,3,4), as.vector(unlist(f2(2,3,4)))))
40 
 
 40 
 
41 
## test callGeneric() with no arguments.  This is rarely used
 41 
## test callGeneric() with no arguments.  This is rarely used
42 
## because nearly all applications use the groups Ops, etc.
 42 
## because nearly all applications use the groups Ops, etc.
43 
## whose members are primitives => must supply args to callGeneric
 43 
## whose members are primitives => must supply args to callGeneric
44 
 
 44