* rename str_replace to str_replace_all, and add str_replace
* add string <- as.character(string) to all functions