splusTimeDate (version 2.5.8)

groupVecNonVec: groupVec Extended Class Validation

Description

Checks whether all slots of an object are either not vectors or have length <= 1 for use in validation checks.

Usage

groupVecNonVec(object, exceptSlots)

Value

returns TRUE if the slots in the object are atomic or are not vector objects (excluding the slots in exceptSlots); otherwise, returns a descriptive string.

Arguments

object

the object whose slots are to be checked.

exceptSlots

if present, do not check these slots.

Details

The function loops through all the slots of the object, and for each one checks to see that the data in it is either not a vector class, or if it is a vector class, that it has length <= 1.

See Also

groupVecExtValid.

Examples

setClass("myclass", representation("groupVec", a = "numeric")) 
obj <- new("myclass") 
groupVecNonVec(obj) 
obj@a <- 1:5 
groupVecNonVec(obj) 
groupVecNonVec(obj, "a")