[R] print comment lines on `sink'ed files?

[SI]

Hi,

I am using many comment lines like this
	#	a comment line
in a script.  Is there any way to print
comment lines when I use sink() function?
Or, are there any plans to include as
an option to sink() function in the near
future?  I would not want to use cat() 
function as it will look messy in the 
original script file.

Thanks!

SI

__________________________________________________