Extract fixed-length character in R

Question

I have an attribute consisting of DNA sequences and would like to translate it into his name. So I need to break the sequence into a character of fixed length, which is 3. Here is an example of data

data=c("AATAGACGT","TGACCC","AAATCACTCTTT")

How can I extract it:

[1] "AAT" "AGA" "CGT"
[2] "TGA" "CCC" 
[3] "AAA" "TCA" "CTC" "TTT"

So far, I can only find how to break a string by specifying a specific regular expression as a delimiter

Answer 1

Try

strsplit(data, '(?<=.{3})', perl=TRUE)

or

library(stringi)
stri_extract_all_regex(data, '.{1,3}')

Answer 2

as.list(gsub("(.{3})", "\\1 ", data))
[[1]]
[1] "AAT AGA CGT "

[[2]]
[1] "TGA CCC "

[[3]]
[1] "AAA TCA CTC TTT "

or

 regmatches(data, gregexpr(".{3}", data))
[[1]]
[1] "AAT" "AGA" "CGT"

[[2]]
[1] "TGA" "CCC"

[[3]]
[1] "AAA" "TCA" "CTC" "TTT"

Answer 3

, , , ( lapply):

lapply(data, function(u) substring(u, seq(1, nchar(u), 3), seq(3, nchar(u),3)))
#[[1]]
#[1] "AAT" "AGA" "CGT"

#[[2]]
#[1] "TGA" "CCC"

#[[3]]
#[1] "AAA" "TCA" "CTC" "TTT"

Answer 4

:

library(gsubfn)
strapply(data, "...")