You can use regex to remove special characters:
x <-"\r\n\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\t\t\tLocation\r\n\t\t\t\t\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\t\t\t\t\tSan Francisco, CA;Oakland, CA" gsub('[\r\n\t]', '', x)
However, if you really have a line with all these \ , the answer becomes something more similar:
gsub('\\\\[az]', '', x)
source share