RでS3とS4のオブジェクトをプログラムで区別する

Question

オブジェクトがxである場合、S3またはS4（または「その他」）であるかどうかを分類する方法はありますか？私はis.object()とisS4()を見て、何かがオブジェクト（またはそうでない）であり、それがS4オブジェクト（またはそうでない）であることを識別できます。しかし、S3オブジェクトはS4オブジェクトではないすべてのオブジェクトの補完物であるとは思われません。

したがって、どのようにこれらの割り当てをプログラムで行うことができますか？それはaがS3オブジェクトであることを

a = as.factor(1:3) 
is.object(a) # TRUE 
isS4(a) # FALSE 

意味しています：ここで

はis.object()のヘルプから取られたバグの私を、何かの例ですか？

Answer 1

それはオブジェクトであり、S4はない場合、それはS3です：事はクラス属性を持っているので、その本質的に高速時に設定されますいくつかの魔法OBJECTビット用

is.object(foo) & !isS4(foo) 

is.objectチェックany(names(attributes(foo))=="class")を実行して、S3オブジェクトを定義します。