Skip to content
Snippets Groups Projects
Commit c177ae3c authored by Fernando Mayer's avatar Fernando Mayer
Browse files

Merge branch 'issue#1' into 'master'

Issue#1

Esse ramo traz:
  - Capítulo com a estrutura do pacote R;
  - Modificações no style.css para centralizar o cabeçalho;
  - Correções ortográficas no CONTRIBUTING;
  - Arquivos Rmd para os capítulos de 04 à 07 com YAML e chunk de setup;

É necessário fazer antes do MR:
  - Leitura de todo o texto para verificar a fluidez;
  - Correções ortográficas;
  - Aprimorar onde julgar necessário;

Faça as modificações no ramo issue#1. Ao aplicar o MR, feche o issue correspondente.

See merge request !1
parents 25c658fa 857bd158
Branches
No related tags found
No related merge requests found
...@@ -3,17 +3,17 @@ Guia de Colaboração ...@@ -3,17 +3,17 @@ Guia de Colaboração
Nos códigos R deve ser usado o padrão de estilo definido em Nos códigos R deve ser usado o padrão de estilo definido em
Advanced R: [Style guide] por Hadley Wickham > Advanced R: [Style guide] por Hadley Wickham.
Para controlar a renderização dos arquivos `Rmd`, edite o Para controlar a renderização dos arquivos `Rmd`, edite o
`_output.yaml`. Para modificar propriedades do resultado `html`, edite `_output.yaml`. Para modificar propriedades do resultado `html`, edite
`\tyle.css`. Para modificar propriedades do resultado `pdf`, edite `style.css`. Para modificar propriedades do resultado `pdf`, edite
`template.tex`. `template.tex`.
Ao indicar url no meio do texto use Ao indicar url no meio do texto use
``` ```
## Para fazer: texto\footnote\url{http://a.url.com} ## Para fazer: texto\footnote{\url{http://a.url.com}}
`r renderUrl(text = "texto", url = "http://a.url.com", output = "tex")` `r renderUrl(text = "texto", url = "http://a.url.com", output = "tex")`
## Para fazer: [texto](http://a.url.com) ## Para fazer: [texto](http://a.url.com)
...@@ -21,6 +21,6 @@ Ao indicar url no meio do texto use ...@@ -21,6 +21,6 @@ Ao indicar url no meio do texto use
``` ```
Essa função, e outras, estão definidas em `config.R`. Esse *script* deve Essa função, e outras, estão definidas em `config.R`. Esse *script* deve
ser carregado, `source()` no primeiro *chunk* de cada documento. ser carregado via `source()` no primeiro *chunk* de cada documento.
[Style guide]: http://adv-r.had.co.nz/Style.html [Style guide]: http://adv-r.had.co.nz/Style.html
##----------------------------------------------------------------------
#' @title Hipotenusa de Triângulo Retângulo
#' @name pitagoras
#'
#' @description Dados os catetos de um triângulo retângulo, essa função
#' obtém a hipótenusa.
#'
#' @param a,b Vetores numéricos com valores dos catetos do triângulo.
#'
#' @details Essa função é baseada no teorema de Pitágoras
#' \url{https://pt.wikipedia.org/wiki/Teorema_de_Pitágoras}.
#'
#' @return Um vetor com a hipotenusa calculada.
#'
#' @author Walmes Zeviani
#'
#' @examples
#'
#' ## Triangulo pitagórico.
#' pitagoras(a = 3, b = 4)
#'
#' @export
pitagoras <- function(a, b){
h <- sqrt(a^2 + b^2)
return(h)
}
#' @title Desenha um Triângulo Retângulo
#' @name plotTriRet
#' @export
#'
#' @description Exibe um triângulo retângulo a partir dos valores dos
#' catetos.
#'
#' @param a primeiro cateto.
#' @param b segundo cateto.
#' @param ... argumentos passados para a função
#' \code{\link[lattice]{xyplot}}
#'
#' @return Um grafico xyplot do pacote lattice.
#'
#' @seealso \code{\link[lattice]{xyplot}}.
#'
#' @importFrom lattice xyplot
#'
#' @examples
#'
#' plotTriRet(a=3, b=4)
#'
plotTriRet <- function(a, b, ...){
x <- c(0, a, 0, 0)
y <- c(0, 0, b, 0)
xyplot(y ~ x, type = c("l", "g"), aspect = "iso",
xlab = NULL, ylab = NULL, col = 1, ...)
}
cap03.Rmd 0 → 100644
This diff is collapsed.
---
title: "Pacote com dados"
author: "Fernando Mayer & Walmes Zeviani"
---
```{r setup, include=FALSE}
library(knitr)
opts_chunk$set(
dev.args=list(family = "Palatino"))
options(width = 68)
## Carrega as definições de sessão.
source("config.R")
rty <- "md"
```
---
title: "Métodos e Funções Genéricas"
author: "Fernando Mayer & Walmes Zeviani"
---
```{r setup, include=FALSE}
library(knitr)
opts_chunk$set(
dev.args=list(family = "Palatino"))
options(width = 68)
## Carrega as definições de sessão.
source("config.R")
rty <- "md"
```
---
title: "Vinhetas"
author: "Fernando Mayer & Walmes Zeviani"
---
```{r setup, include=FALSE}
library(knitr)
opts_chunk$set(
dev.args=list(family = "Palatino"))
options(width = 68)
## Carrega as definições de sessão.
source("config.R")
rty <- "md"
```
---
title: "Testes"
author: "Fernando Mayer & Walmes Zeviani"
---
```{r setup, include=FALSE}
library(knitr)
opts_chunk$set(
dev.args=list(family = "Palatino"))
options(width = 68)
## Carrega as definições de sessão.
source("config.R")
rty <- "md"
```
...@@ -8,9 +8,18 @@ tt, code, pre { ...@@ -8,9 +8,18 @@ tt, code, pre {
font-family: "Inconsolata", "Andale Mono", monospace; font-family: "Inconsolata", "Andale Mono", monospace;
} }
code { /* Controla o título. */
font-size: 16px; #header {
} text-align: center;
border-bottom: 1px solid black;
margin-bottom: 20px;
}
/* Controla o sumário. */
/* #TOC { display: block; } */
/* h1.title {} */
/* h4.author {} */
/* code { font-size: 16px; } */
pre code { pre code {
font-size: 14px; font-size: 14px;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment