[R] cat(summary(lm(Y~x, dat = data))) cannot handle lists; dput writes too much...

[Alex van der Spek]

Is there a way to write the summary of lm objects to a text file on disk?

cat won't handle the list, dput writes everything but not in human 
readable format.

Any thoughts?
Alex van der Spek