df <- data.frame(
a = c(1, 0, NA, 1, 0),
b = c("y", "n", NA, "Y", "n"),
c = c("yes", "no", NA, "Yes", "No"),
d = c(TRUE, FALSE, NA, TRUE, FALSE),
e = c(1, 2, 3, 4, 5)
)
binary2factor(df, a, b:d)
df %>%
binary2factor(-e)
Run the code above in your browser using DataLab