Конвейерная передача stdin в R

У меня проблемы с подключением stdin к сценарию R .

Вот мой игрушечный скрипт test.R :

#!/usr/bin/env Rscript
while(length(line <- readLines('stdin', n=1, warn=FALSE)) > 0) {
  write(line, stderr())
  # process line
}

Я хотел бы просмотреть каждую строку и произвести некоторую обработку. Вот мой входной файл с именем input :

aaaaaa
bbbbbb
cccccc
dddddd
eeeeee
ffffff

Если я сделаю

cat input | test.R

, я получу только:

aaaaaa

Я что-то пропустил?