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

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]