Something along these lines might be quicker:

> stuff <- list('line1', 'line 2', 'line3', 'line4')
> paste(stuff, collapse="\r\n")
[1] "line1\r\nline 2\r\nline3\r\nline4"