files <- dir(path = ".")
scan_file <- vapply(files, FUN = function(x) scan(x, what = "list"),
FUN.VALUE = "")
Tengo unos 5000 archivos que se leen con las dos funciones de arriba. En principio, todos los archivos se guardan en scan_file correctamente. Cada archivo contiene una secuencia de nucleótidos, de la cual debo hallar su longitud. He intentado hacerlo con un bucle for:
for (file in scan_file){
len <- length(file[[1]])
cat(len)
return(len)
}
Pero R me devuelve que la longitud es 1. ¿Qué estoy haciendo mal?
También lo he intentado hacer con un lapply
, con un resultado similar.
Fragmento de scan_file:
$`45792NJBAK082`
[1] "CAGCGCGTGCTTGACTAGTTATTTTACACTTGAGGCCGTGCCGTGACAGCCTACTGGTTATTATTGGAAGGGACAAGCGAGATCAGGCGCAGCCTGGTGTCTAGGTTAGAGTTCCAGCGAGGGAGACGCGACGCGGACCAGACCCTCGACAGGTCTATGTAACCCAAAGTGTCCTAATCCTTCAGTTTTGAACATGAAGAAGGTCCTTGCTTACAGGGTCGTAGAAAGGTTGCTTGGCCACGAATACT"
$`48927HSKA`
[1] "TGTGCCAAACACAAAGCGCGCGCGGTAGCTAGTCTGTATCCCGAACAAGCGCGAGACGATAACGAGGCCTGTGTAGCACCACATTGTCGCGT"
$`12NNUANLSO21`
[1] "CCGTCCCGCCACCATACCAGTCTCTCGTTCATACTCACTTCCCCTGAGATTTTTGAATTTTTAGTAAGTTTTATCACAAATACAGTCAGCATTACCGTTAGTTTTTGAGGAGGGCAGGACAACGGTATTACAGGGGACAAGAGGCCTTCCCACATGATCTACTGACCGCTCAGCTAGCTTGCATTAACTACCGTAAAAGAGGCCGGCGAAGCCCGGGCGTTGGGCAACAAGTCTAAGACCGCTCAAACGGCTTACTTAGGAGCTGGGGTGTCCTAGTGGGAGTCTTGAGAAGGGGCGGCAATCTCATGGGTATACGGCTCTAAAACTCTCTTTCGGGGCAGTGGAGGGACAAGGCACAAACCTGTAGTGACCTTTTATACACACATAAGGCGTCTCCGCATACTTTCAGGCCTTGCAACGGTAGGCTTTCATAGGTG"
scan_file
? A lo mejor está mal elfile[[1]]
pero no puedo imaginarme como es el objeto. A lo mejor queres usar la funciónnchar
en vez delength
Saludos.