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()

[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