# NOT RUN {
# Define format
fmt1 <- value(condition(x == "A", "Label A"),
condition(x == "B", "Label B"),
condition(TRUE, "Other"))
# Check for format
is.format(fmt1)
is.format("A")
# }
Run the code above in your browser using DataLab