string = c( "catch-22", "finnegans wake" )
str_transform( string, str_capitalize )
str_transform( string, str_capitalize, str_delete_nonword )
str_delete_nonword( str_capitalize( string ) ) # SAME
## Not run:
# # magrittr:
# string %>% str_capitalize %>% str_delete_nonword # SAME
# ## End(Not run)
Run the code above in your browser using DataLab