@Specialization
protected Object castFunction(RFunction f) {
if (isNonVectorPreserved()) {
return f;
} else {
return RDataFactory.createList();
}
}
@Specialization
protected Object castNull(@SuppressWarnings("unused") RNull rnull) {
if (isNonVectorPreserved()) {
return RNull.instance;
} else {
return RDataFactory.createList();
}
}