data(objectsales)
data(objectcodes)
objectsales$product <- code(objectsales$product, objectcodes)
labels(objectsales$product) |>
table(useNA = "ifany")
labels(objectsales$product, missing = FALSE) |>
table(useNA = "ifany")
labels(objectsales$product, droplevels = TRUE) |>
table(useNA = "ifany")
to_labels(c("A", "B"), codelist = objectcodes)
# is the same as
labels.code(c("A", "B"), codelist = objectcodes)
Run the code above in your browser using DataLab