How do you sink input and output to a text file in R?

Question

How do you sink both the console input and the console output to a text file? Take the following code:

sink("temp.txt")
1:10
sink()

It will write a text file that looks like this:

[1]  1  2  3  4  5  6  7  8  9 10

But how do I create a text file that looks like this:

>   1:10
 [1]  1  2  3  4  5  6  7  8  9 10

I've looked at ?sink and searched R-help. I've also read: http://stackoverflow.com/questions/1343442/maintaining-an-input-output-log-in-r

If it makes a difference, I'm using StatET and Eclipse.

Answer 1

library(TeachingDemos)

txtStart("temp.txt")
1:10
txtStop()

The text file now looks like

> 1:10
 [1]  1  2  3  4  5  6  7  8  9 10