If you write your data out to csv and then open the file in a program like Notepad++, then turn on view>all characters you will be able to see if there are something at the ends of your strings like LF or \r or \n. Then you will have a better idea what you need to remove and can use the above advice (stringi::str_cmp()) to test an example of a string that you know was not working to be sure you fixed it. For me the issue turned out to be spaces and this solved my problem:
own_dept_expect %>%
mutate(check_field = stringr::str_replace_all(check_field,"[:space:]"," ")) %>%
write_csv("C:/Users/me/Desktop/spaces_suck.csv")
I verified in Notepad++ that it was all uniform now.