From suh@rto_@@ggo@o m@iii@g oii y@hoo@com  Sun Nov 17 11:34:31 2019
From: suh@rto_@@ggo@o m@iii@g oii y@hoo@com (suh@rto_@@ggo@o m@iii@g oii y@hoo@com)
Date: Sun, 17 Nov 2019 10:34:31 +0000 (UTC)
Subject: [Rd] Inappropriate class(o)[!inherits(o,"AsIs")] in get_all_vars
Message-ID: <1709347581.898771.1573986871851@mail.yahoo.com>

SVN?revision?77401?changes
????????x[isM]?<-?lapply(x[isM],?function(o)?`class<-`(o,?class(o)[class(o)?!=?"AsIs"]))
to
????????x[isM]?<-?lapply(x[isM],?function(o)?`class<-`(o,?class(o)[!inherits(o,"AsIs")]))
in?function?'get_all_vars'?in?src/library/stats/R/models.R?in?R?devel.

The?change?is?inappropriate.

class(o)[class(o)?!=?"AsIs"]?removes?"AsIs"?from?class(o),?giving?class(o)?without?"AsIs".

On?the?other?hand,?inherits(o,"AsIs")?is?just?a?single?logical?value.?If?"AsIs"?is?in class(o),?inherits(o,"AsIs")?is?TRUE. In that case,?by?recycling?of?logical?index,?class(o)[!inherits(o,"AsIs")]?removes?all?elements?of?class(o),?giving?character(0).



[Rd] Inappropriate class(o)[!inherits(o,"AsIs")] in get_all_vars
suh@rto_@@ggo@o m@iii@g oii y@hoo@com