String transformation in R | Grouping words of a string

Question

I want to group the words of string(given below)

text=\"Lorem,ipsum,dolor,sit,amet,consectetuer\"

like this

textNew=\"Lore         


        

Answer 1

Through gsub function,

> text="Lorem,ipsum,dolor,sit,amet,consectetuer"
> f <- gsub(",([^,]*)", " \\1,\\1", text, perl=TRUE)
> result <- gsub(",[^,]*$", "", f, perl=TRUE)
> result
[1] "Lorem ipsum,ipsum dolor,dolor sit,sit amet,amet consectetuer"