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

[Éder Comunello]

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 em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140710/843c2849/attachment.html>