Split a string every 5 characters

Question

Suppose I have a long string:

\"XOVEWVJIEWNIGOIWENVOIWEWVWEW\"

How do I split this to get every 5 characters followed by a space?

Answer 1

Using sapply

> string <- "XOVEWVJIEWNIGOIWENVOIWEWVWEW"
> sapply(seq(from=1, to=nchar(string), by=5), function(i) substr(string, i, i+4))
[1] "XOVEW" "VJIEW" "NIGOI" "WENVO" "IWEWV" "WEW"