split_txt.R

> # generate text for txt file
> lipsum <- function() paste(sample(letters, runif(1, 3, 10)), collapse = "")
> lipsum_lines <- function() paste0(paste(replicate(10, lipsum()), collapse = " "), "\n")
>
> # create txt file
> cat(replicate(100, lipsum_lines()), file = "splitxt.txt")
>
> # read n lines from txt file
> spltxt <- readLines("splitxt.txt", n = 50)
> spltxt[1:5]
[1] "mku dfyt kvlej jnptvk wrkymlp mdcizwa htaok zrxebi dewhjmr hexk"               
[2] " baxvd cglanvosu flujir ltw wqiz txzyedkmq hljstcykx phnqgtsi tzs uinwrta"     
[3] " cntivy oycvb cwaje sqnbcra zjorfb puykxqeni gcvpkxyfs otcmejfy aouhzxe kwvbdo"
[4] " xfdqyi cliva ltp kpbwsnzea zgtkxusnc mwzp geozl mpsx tnxpa hcrk"              
[5] " lcpdia scg bnr mnpktb raliphdne qpmgon ltebzjk azfm wjlypzeia uav"            
>