data(objectcodes)
data(objectsales)
objectsales$product <- code(objectsales$product, objectcodes)
objectsales$product[1] <- as.label("Hammer")
objectsales$product == as.label("Hammer")
subset(objectsales, product == as.label("Hammer"))
# This is the same as
subset(objectsales, product == codes("Hammer", cl(product)))
Run the code above in your browser using DataLab