# Create a user-defined format
f1 <- value(condition(x == "A", "Label A"),
condition(x == "B", "Label B"),
condition(TRUE, "Other"))
# Convert user-defined format to data frame to view the structure
df <- as.data.frame(f1)
print(df)
# Name Type Expression Label Order Factor
# 1 f1 U x == "A" Label A NA FALSE
# 2 f1 U x == "B" Label B NA FALSE
# 3 f1 U TRUE Other NA FALSE
# Convert data frame back to a user-defined format
f2 <- as.fmt(df)
# Use re-converted format
fapply(c("A", "B", "C", "B"), f2)
# [1] "Label A" "Label B" "Other" "Label B"
Run the code above in your browser using DataLab