Custom cleaning a vector of strings using janitor::make_clean_names()

Question

I have a vector that contains column names of a data frame. I want to clean up those strings.

vec_of_names <- c("FIR