From 2e9472463cfe697faa9739e5cf16cfaee1395da1 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Mon, 21 Dec 2015 23:44:35 -0200
Subject: [PATCH] Modifica chunks e DESCRIPTION.
---
cap03.Rmd | 25 ++++++++++++-------------
1 file changed, 12 insertions(+), 13 deletions(-)
diff --git a/cap03.Rmd b/cap03.Rmd
index 35afb24..2fdbfa2 100644
--- a/cap03.Rmd
+++ b/cap03.Rmd
@@ -129,15 +129,14 @@ write.dcf(
list(Package = "meupacote",
Title = "Meu Primeiro Pacote R",
Version = "0.0-1",
- Author = "Fernando Mayer <fernandomayer@ufpr.br>",
+ Author = "Walmes Zeviani <walmes@ufpr.br>",
+ Maintaner = "Fernando Mayer <fernandomayer@ufpr.br>",
Description = "O que esse pacote faz",
- Depends = sprintf("R (>= %s)", getRversion()),
License = "GPL-3",
- LazyData = "true"),
+ LazyData = "true",
+ Depends = sprintf("R (>= %s)", getRversion())),
file = "meupacote/DESCRIPTION"),
indent = 4)
-
-cat()
```
```{r}
cat(file = "meupacote/DESCRIPTION", sep = "\n",
@@ -567,7 +566,7 @@ Por padrão, quando iniciamos um pacote com a função `create()` do pacote
`.`. O arquivo `NAMESPACE` inicial possui a especificação a seguir, que
indica que são exportadas todos os objetos que não começam com ponto.
-```{r echo=FALSE, comment=NA, cache=TRUE}
+```{r echo=FALSE, comment=NA}
cat(namespace, sep = "\n")
```
@@ -581,7 +580,7 @@ funções que possuem `@export` e colocá-las adequadamente no arquivo
funções com `@export` e rodar `document()`, o arquivo `NAMESPACE` passa
a listá-las.
-```{r echo=FALSE, comment=NA, cache=TRUE}
+```{r echo=FALSE, comment=NA}
cat(readLines("./meupacote/NAMESPACE"), sep = "\n")
```
@@ -656,7 +655,7 @@ file.copy(from = "aux/plotTriRet.R",
to = "meupacote/R/plotTriRet.R",
overwrite = TRUE)
```
-```{r, echo=FALSE, comment=NA, cache=TRUE}
+```{r, echo=FALSE, comment=NA}
cat(readLines("./meupacote/R/plotTriRet.R"), sep = "\n")
```
@@ -726,7 +725,7 @@ o arquivo `DESCRIPTION` ficaria atualizado com o seguinte conteúdo
## Adiciona lattice ao campo Imports no DESCRIPTION.
use_package(package = "lattice", type = "Imports")
```
-```{r echo=FALSE, comment=NA, cache=FALSE}
+```{r echo=FALSE, comment=NA}
use_package(package = "lattice", type = "Imports", pkg = "./meupacote/")
cat(readLines("./meupacote/DESCRIPTION"), sep = "\n")
```
@@ -754,11 +753,11 @@ construir o pacote só no final quando tudo estiver funcionando.
```{r, echo=TRUE, eval=FALSE}
check()
```
-```{r, echo=FALSE, eval=TRUE, cache=TRUE}
+```{r, echo=FALSE, eval=TRUE, comment=NA}
## Essa chamada so mostra a parte inicial do output.
check("meupacote/")
```
-```{r, echo=FALSE, eval=TRUE}
+```{r, echo=FALSE, eval=TRUE, comment=NA}
## Para mostrar o output da chamada da funcao foi necessario chamar o
## Rscript dentro do system.
cat(system("Rscript -e 'library(devtools); check(\"./meupacote/\")'",
@@ -779,11 +778,11 @@ pacote `devtools`.
```{r, echo=TRUE, eval=FALSE}
build()
```
-```{r, echo=FALSE, eval=TRUE, cache=TRUE, results='hide'}
+```{r, echo=FALSE, eval=TRUE, results="hide", comment=NA}
## Essa chamada so mostra a parte inicial do output.
build("meupacote/")
```
-```{r, echo=FALSE, eval=TRUE, cache=TRUE}
+```{r, echo=FALSE, eval=FALSE, results="hide", comment=NA}
## Para mostrar o output da chamada da funcao foi necessario chamar o
## Rscript dentro do system.
cat(system("Rscript -e 'library(devtools); build(\"meupacote/\")'",
--
GitLab