# add many-to-one style labels for "carb" and one-to-one style for "am"
df <- mtcars
df <- add_m1_lab(df,
vars = "carb",
vals = 1:3,
lab = "<=3",
max.unique.vals = 10
)
df <- add_m1_lab(df,
vars = "carb",
vals = c(4, 6, 8),
lab = ">=4",
max.unique.vals = 10
)
df <- add_val_labs(df,
vars = "am",
vals = c(0, 1),
labs = c("autom", "manu"),
max.unique.vals = 10
)
has_m1_labs(df, carb) # TRUE, carb has m1-style value labels
has_val_labs(df, am) # TRUE, am does have value labels
has_m1_labs(df, am) # FALSE, am's value labels are not not m1-style labels
Run the code above in your browser using DataLab