On 10/04/2012 04:05 PM, Duncan Murdoch wrote:
On 12-10-04 5:50 PM, Martin Morgan wrote:
On 10/04/2012 02:23 PM, Duncan Murdoch wrote:
On 12-10-04 4:57 PM, Martin Morgan wrote:
> setClass("A", "integer")
> isS4(new("A"))
[1] TRUE
> identical(isS4(new("A")), TRUE)
[1] FALSE
> sessionInfo()
R Under development (unstable) (2012-10-04 r60876)
Platform: x86_64-unknown-linux-gnu (64-bit)
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
[7] LC_PAPER=C LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
I can confirm this in R-devel, but it doesn't happen in R-patched. In R-devel,
isS4 is returning a vector marked as LGLSXP, but containing the value 16, not
the usual 1 for TRUE.
> .Internal(inspect(isS4(new("A"))))
@4bfbed8 10 LGLSXP g0c1 [] (len=1, tl=0) 16
I'm not going to have time to track this down and fix it.
The bit is set at src/include/Rinternals.h:278
39103 jmc #define IS_S4_OBJECT(x) ((x)->sxpinfo.gp & S4_OBJECT_MASK)
but it's identical that has changed; it looks as though there are other similar
operations in that header and probably elsewhere.
In R-patched, it returned the value 1 for TRUE, so I'm not sure identical() has
changed.
R version 2.15.1 Patched (2012-09-24 r60798) has
> isS4
function (object)
.Call("R_isS4Object", object, PACKAGE = "base")
with objects.c:1531
SEXP R_isS4Object(SEXP object)
{
/* wanted: return isS4(object) ? mkTrue() : mkFalse(); */
return IS_S4_OBJECT(object) ? mkTrue() : mkFalse(); ;
}
where R-devel has
> isS4
function (object) .Primitive("isS4")
with coerce.c:1843
case 51: /* isS4 */
LOGICAL(ans)[0] = IS_S4_OBJECT(CAR(args));
break;
made in r60395
Martin
Duncan Murdoch
Martin
Duncan Murdoch
--
Computational Biology / Fred Hutchinson Cancer Research Center
1100 Fairview Ave. N.
PO Box 19024 Seattle, WA 98109
Location: Arnold Building M1 B861
Phone: (206) 667-2793
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
