Programowe rozróżnianie obiektów S3 i S4 w R

Question

Jeśli podano obiekt x, czy istnieje sposób klasyfikacji, czy jest on S3 lub S4 (lub "inny")? Przyjrzałem się is.object() i isS4() i mogę stwierdzić, że coś jest obiektem (lub nie) i że jest to obiekt S4 (lub nie). Jednak nie wydaje mi się, że obiekty S3 są dopełnieniem wszystkich obiektów, które nie są obiektami S4.

W związku z tym, w jaki sposób można wykonać te przypisania programowo?

Oto przykład czegoś, bugs me, zaczerpnięte z pomocą dla is.object():

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

Czy to znaczy, że a jest obiektem S3?

Answer 1

Jeśli jest to obiekt, a nie jest to S4 to jest S3:

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

is.object sprawdza jakimś magicznym obiekt bitowy, który pobiera ustawiony, gdy sprawa ma atrybut class, więc jego istocie szybko sposób wykonania any(names(attributes(foo))=="class"), który definiuje obiekt S3.