TheFallOfTroy: Hiding S4 objects as S3 vectors
In teunbrand/ggnomics: ggnomics

Description Usage Arguments Details Value Functions Examples

There are some limitations to getting S4 objects past the internals of the ggplot2 system. One of these is a hard check with rlang::is_vector on data.frame columns, which will throw an error when the column is an S4 object. To work around these limitations, we disguise S4 Vectors classes as S3 vectors from the vctrs package.

GreekSoldier(x)

Nightfall(x, na.rm = FALSE)

## S4 method for signature 'OakHorse'
Nightfall(x, na.rm = FALSE)

HelenOfTroy(x, what = NULL)

`x`	For `GreekSoldier()`, an S4 Vector class object. For `Nightfall()` and `HelenOfTroy()`, an S3 `WoodenHorse` class object.
`na.rm`	For `Nightfall()`, should the result be returned for non-NA entries?
`what`	For `HelenaOfTroy`, an optional class name to check for inheritance.

Calling GreekSoldier() on an S4 Vector object will generate an object of the class WoodenHorse of the same length as the input, where the original S4 Vector is inside the WoodenHorse object as an attribute.

Encoding the WoodenHorse object as a vctrs_vctr object allows us to pass the rlang::is_vector check and gives us nice options to preserve attributes over subsetting and concatenation operations.

For Nightfall(), a Vector object. For GreekSoldier(), a WoodenHorse object. For HelenaOfTroy(), a character,

GreekSoldier,ANY-method: By default, don't disguise object as WoodenHorse and return the input.
GreekSoldier,Vector-method: If an object inherits from Vector, disguise object as WoodenHorse, and put the input as an attribute of the vector.
Nightfall,ANY-method: If the object is not a WoodenHorse return the input unaltered.
Nightfall,BeechHorse-method: If the object is a WoodenHorse return the GreekSoldier attribute within the WoodenHorse.
Nightfall,OakHorse-method: If the object is a WoodenHorse return the GreekSoldier attribute within the WoodenHorse.

# Making an S4 object
Anticlus <- Rle(1:10, 10:1)

# Rle object does not pass is_vector test
rlang::is_vector(Anticlus)

# Disguising the object as S3 vector
VictoryTrophy <- GreekSoldier(Anticlus)
class(VictoryTrophy) # A WoodenHorse

# WoodenHorse passes is_vector test
rlang::is_vector(VictoryTrophy)

# Inspecting the class of WoodenHorse
HelenOfTroy(VictoryTrophy) # Rle

# Restoring WoodenHorse to S4 object
Nightfall(VictoryTrophy)