fapply() with a single item vector lookup doesn't work. Gives a warning in sprintf.
fmt <- c("A"= "Group A")
fapply(c("A", "B", "C"), fmt)
# [1] "Group A" "Group A" "Group A"
# Warning message:
# In sprintf(fmt, x) : one argument not used by format 'Group A'
fapply() with a single item vector lookup doesn't work. Gives a warning in sprintf.