1library(gdata) 2saveto <- tempfile(pattern = "test.txt", tmpdir = tempdir()) 3 4write.fwf(x = data.frame(a=1:length(LETTERS), b=LETTERS), 5 file=saveto, eol="\r\n") 6