breaking up text in R working