[R-br] como imprimir linhas de comentários em output do R através de sink()?

[Mauricio Cardeal]

Olá pessoal!

Como faço para imprimir as linhas iniciadas por # através da função sink()?
Quando tento como no código abaixo obtenho apenas os números, mas gostaria
de obter todo o código (inclusive as linhas comentadas).

sink("exemplo.txt")
# exemplo
x <- c(2,3,2,4,2,3)
# media de x
mean(x)
# desvio-padrao de x
sd(x)
sink()

Ao executar o código acima obtenho isso:
[1] 2,6667
[1] 0,8165

Mas gostaria de obter isso (conseguido aqui através de copiar e colar):

> # exemplo
> x <- c(2,3,2,4,2,3)

> # media de x
> mean(x)
[1] 2,6667

> # desvio-padrao de x
> sd(x)
[1] 0,8165

Já procurei no google e no help do R, mas não encontrei a solução.
Isso é possível com a função sink()? Ou existe outra função?
Tentei também txtStart() e txtStop(), mas não funcionou como gostaria.

Agradeço a ajuda!
-- 
Mauricio Cardeal
UFBA
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140710/a424ef21/attachment.html>