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

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

Maurício, boa tarde! Segue uma possibilidade: 1) Separe o código desejado em um arquivo à parte, p. ex. 'tmp.R'. ### <code r> # exemplo x <- c(2,3,2,4,2,3) # media de x mean(x) # desvio-padrao de x sd(x) ### </code> 2) Tendo salvo o arquivo, execute: ### <code r> sink("exemplo.txt") source("tmp.R", echo=TRUE, max.deparse.length=10000) sink() cat(readLines("exemplo.txt"), sep="\n") ### <code r> 3) A saída do último comando mostra o conteúdo de "exemplo.txt": # > # exemplo # > x <- c(2,3,2,4,2,3) # # > # media de x # > mean(x) # [1] 2.666667 # # > # desvio-padrao de x # > sd(x) # [1] 0.8164966 # > Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]

Maurício, Outra opção é fazer uso do print(), como na página que segue: http://staff.utia.cas.cz/barunik/files/AE/Seminar2/generating_output.html Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]

Valeu Éder. Ficou ótimo! Não me ocorreu usar o print() !!! Obrigado, Maurício UFBA Em 10 de julho de 2014 13:56, Éder Comunello <comunello.eder@gmail.com> escreveu:
Maurício,
Outra opção é fazer uso do print(), como na página que segue:
http://staff.utia.cas.cz/barunik/files/AE/Seminar2/generating_output.html
Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-- Mauricio Cardeal UFBA
participantes (2)
-
Mauricio Cardeal
-
Éder Comunello