Thanks Greg, this is great!  Regards, Marcus
On 2013-03-02, at 19:06 , Greg Snow wrote:

> Try the following to see if it does what you want:
> 
> ## init
> con <- textConnection("output", "w")
> options(echo=FALSE)
> sink(con)
> 
> addTaskCallback( function(expr, out, err, vis) {
> 	sink()
> 	close(con)
> 	if(vis) {
> 		cat(paste("#", output, collapse="\n"), "\n")
> 	}
> 	con <- textConnection("output", "w")
> 	sink(con)
> 	TRUE
> })
> 
> 3+4
> 5*6
> tmp <- 7-8
> ls()
> 
> 
> ### clean up when finished
> removeTaskCallback(1)
> sink()
> options(echo=TRUE)
> 
> 
> This misses errors and warnings, but should do what you want for everything else.
> 
> 
> On Sat, Mar 2, 2013 at 6:35 AM, Marcus Kriele <mkriele@me.com> wrote:
> 


	[[alternative HTML version deleted]]

