Displaying 2 results from an estimated 2 matches for "length_op".
2013 Mar 03
1
Missing PROTECT in mkPRIMSXP ?
...(call=0x164d5c0, op=<optimized out>,
args=<optimized out>, rho=0x5334428)
at /home/biocbuild/src/R-3.0.r62077/src/main/mapply.c:49
...
we get to
(gdb) l mapply.c:49
44 /* Cache the .Primitive: unclear caching is worthwhile. */
45 static SEXP length_op = NULL;
46 if (length_op == NULL) length_op = R_Primitive("length");
47 // DispatchOrEval() needs 'args' to be a pairlist
48 SEXP ans, tmp2 = PROTECT(list1(tmp1));
49 if (DispatchOrEval(call, length_op, "leng...
2012 Nov 15
1
bug with mapply() on an S4 object
Hi,
Starting with ordinary vectors, so we know what to expect:
> mapply(function(x, y) {x * y}, 101:106, rep(1:3, 2))
[1] 101 204 309 104 210 318
> mapply(function(x, y) {x * y}, 101:106, 1:3)
[1] 101 204 309 104 210 318
Now with an S4 object:
setClass("A", representation(aa="integer"))
a <- new("A", aa=101:106)
> length(a)