vignettes/config/setup.R

In walmes/RDASC: Reproducible Data Analysis of Cientific Cooperations

library(knitr)
opts_chunk$set(cache = FALSE,
               tidy = FALSE,
               fig.width = 8,
               fig.height = 6,
               fig.align = "center",
               eval.after = "fig.cap",
               dpi = 100,
               dev = "png",
               warning = FALSE,
               error = FALSE,
               message = FALSE,
               dev.args = list(family = "Palatino"))
options(width = 68)

library(latticeExtra)
mycol <- c("#E41A1C", "#377EB8", "#4DAF4A",
           "#984EA3", "#FF7F00", "#FFFF33")

# TODO incluir como um objeto do pacote.
# Trellis graphical style.
ps <- list(box.rectangle = list(col = 1, fill = c("gray70")),
           box.umbrella = list(col = 1, lty = 1),
           dot.symbol = list(col = 1, pch = 19),
           dot.line = list(col = "gray50", lty = 3),
           plot.symbol = list(col = 1, cex = 0.8),
           plot.line = list(col = 1),
           plot.polygon = list(col = "gray95"),
           superpose.line = list(col = mycol, lty = 1),
           superpose.symbol = list(col = mycol, pch = 1),
           superpose.region = list(col = mycol, pch = 1),
           superpose.polygon = list(col = mycol),
           strip.background = list(col = c("gray80", "gray50")),
           axis.text = list(cex = 0.8))
trellis.par.set(ps)
# show.settings()

library(captioner)

tbn_ <- captioner(prefix = "Tabela")
fgn_ <- captioner(prefix = "Figura")
tbl_ <- function(label) tbn_(label, display = "cite")
fgl_ <- function(label) fgn_(label, display = "cite")

# Carrega o pacote.
# devtools::load_all()

# if (dir.exists("~/repos/wzRfun")) {
#     devtools::load_all("~/repos/wzRfun")
# } else {
#     library(wzRfun)
# }