R/first_cap.r

first_cap <- purrr::compose(function(x) gsub("(^|[[:space:]]|-)([[:alpha:]])", "\\1\\U\\2", x, perl=TRUE), function(x) tolower(x))
injuryepi/injuryepi documentation built on Nov. 13, 2019, 12:13 p.m.