Как да четем текстов файл в R като един ред

Ако трябва да се извърши твърде много обработка на файла, четенето му може да отнеме много време. Може да обмислите да го прочетете непроменен и след това да направите промените. Пакетът stringi има функция за тази конкретна операция. И авторите пишат на C, така че техните функции са хубави и бързи

Така че ако приемем, че сте прочели във файла и сте го нарекли txt,

library(stringi)
stri_flatten(txt)
# [1] "          Commercial exploitation over the past two hundred years drove                  \n          the great Mysticete whales to near extinction.  Variation in                   \n          the sizes of populations prior to exploitation, minimal                        \n          population size during exploitation and current population                     \n          sizes permit analyses of the effects of differing levels of                    \n          exploitation on species with different biogeographical                         \n          distributions and life-history characteristics."

И низът все още е в същия формат, само сплескан. За да проверим дали можем да погледнем cat

cat(stri_flatten(txt))
          Commercial exploitation over the past two hundred years drove                  
          the great Mysticete whales to near extinction.  Variation in                   
          the sizes of populations prior to exploitation, minimal                        
          population size during exploitation and current population                     
          sizes permit analyses of the effects of differing levels of                    
          exploitation on species with different biogeographical                         
          distributions and life-history characteristics.

Имах същия проблем преди известно време и намерих заобиколно решение: да прочета отделните редове и след това да ги поставя заедно, като премахна "\n" новите редове:

filename <- "tmp.txt"
paste0(readLines(filename),collapse=" ")

Ако имате нужда от новия ред, тогава можете да прочетете файла като символен низ

readChar(filename,1e5)

задаване на достатъчно голям брой знаци (100 000 в този случай).

Това ще прочете целия файл във вектор с дължина един знак.

x <- readChar(file, file.info(file)$size)