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