It'd be useful to have a str_to_snake function in stringr.

I think the main use for this would be to rename column names to snake-case:

rename_with(data, stringr::str_to_snake)

It would enable not taking on another package dependency with janitor::clean_names in many user's workflows