fapply with single item lookup

[dbosak01]

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'