Merge branch 'walmes9' into eduardo29

Incorpora contribuições do Walmes para continuidade da aplicação
shiny para visualização dos dados do pacote.

DESCRIPTION

@@ -35,6 +35,7 @@ Suggests:
     ggplot2,
     car,
 	knitr,
-	rmarkdown
+	rmarkdown,
+	shiny
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1

NAMESPACE

-# Generated by roxygen2: do not edit by hand
+# Generated by roxygen2 (4.1.1): do not edit by hand
 
+export(labestDataView)

R/BanzattoQd5.2.1.R

+#' @name BanzattoQd5.2.1
+#' @title Peneira e densidade de plantio na produção de amendoim
+#' @description Dados de um experimento fatorial que estudou o efeito de
+#'     densidade de plantio e tamanho da peneiras comerciais, de crivos
+#'     circulares, para classificação das sementes da produção de
+#'     amendoim (\emph{Arachis hypogaea} L.) variedade Tatu V 53. O
+#'     experimento foi instalado em delineamento de blocos casualizados.
+#' @format Um \code{data.frame} com 27 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{densid}}{Densidade de plantio expresso em número de
+#'     plantas por metro linear de cultivo.}
+#'
+#' \item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+#'     para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
+#'
+#' \item{\code{bloco}}{Fator considerado para garatir controle local.}
+#'
+#' \item{\code{prod}}{Produção média de amendoim em vagens (g) por
+#'     planta.}
+#'
+#' }
+#'
+#' Cada parcela tinha 4 linhas de cultivo, espaçadas de 50 cm, com 7
+#' metros de comprimento, resultando em uma área de 14 m\eqn{^2}. As
+#' duas linhas externas de cada parcela e meio metro de cada extremidade
+#' das linhas centrais foram consideradas como bordadura, fazendo-se as
+#' avaliações apenas no comprimento restante das duas linhas centrais, o
+#' que resultou em uma área útil de 6 m\eqn{^2}.
+#' @keywords DBC FAT2
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
+#'     pág. 102)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.2.1)
+#'
+#' addmargins(with(BanzattoQd5.2.1,
+#'                 tapply(X = prod,
+#'                        INDEX = list(interaction(peneira, densid),
+#'                                     bloco),
+#'                        FUN = sum)))
+#'
+#' xyplot(prod ~ densid, data = BanzattoQd5.2.1,
+#'        groups = peneira, type = c("p", "a"),
+#'        auto.key = list(title = "Peneira", cex.title = 1,
+#'                        columns = 1, corner = c(0.95, 0.95)),
+#'        xlab = "Densidade de plantio (plantas/metro linear)",
+#'        ylab = "Produção média de amendoim em vagem (g/planta)")
+#'
+NULL

R/BanzattoQd5.2.4.R

+#' @name BanzattoQd5.2.4
+#' @title Efeito de recipientes para para duas espécies de Eucalipto
+#' @description Experimento em esquema fatorial 3 \eqn{\times} 2 para
+#'     estudar o efeito de 3 tipos de recipientes para a produção de
+#'     mudas de duas espécies de Eucalipto. O experimento foi instalado
+#'     em delineamento inteiramente casualizado.
+#' @format Um \code{data.frame} com 24 observações e 4 variáveis, em que
+#' \describe{
+#'
+#' \item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
+#'     saco plático pequeno, SPG - saco plástico grande e Lam -
+#'     laminado.}
+#'
+#' \item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus
+#'     citriodora} e \emph{Eucalyptus grandis}}.
+#'
+#' \item{\code{rept}}{Identifica as repetições de cada combinação dos
+#'     fatores recipiente e espécie.}
+#'
+#' \item{\code{alt}}{Altura das mudas aos 80 dias de idade (cm).}
+#'
+#' }
+#' @keywords DIC FAT2
+#' @source Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+#'     Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
+#'     pág. 107)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(BanzattoQd5.2.4)
+#'
+#' xyplot(alt ~ recipie, data = BanzattoQd5.2.4,
+#'        groups = especie, type = c("p", "a"),
+#'        auto.key = list(title = "Espécie", cex.title = 1, font = 3,
+#'                        columns = 1, corner = c(0.95, 0.95)),
+#'        xlab = "Recipiente",
+#'        ylab = "Altura das mudas aos 80 dias de idade (cm)")
+#'
+NULL

R/labestDataView.R

+#' @name labestDataView
+#' @title Shiny App para Visualização e Download dos Datasets
+#' @author Walmes Zeviani e Eduardo Ribeiro Jr.
+#' @description Essa função abre uma interface \pkg{shiny} para
+#'     visualizar as tabelas de dados e consultar a documentação. Além
+#'     disso, tem um botão para salvar o dado em txt.
+#' @section Warning: Para funcionar, é necessário ter o pacote shiny
+#'     instalado. Para abrir a documentação dos datasets é necessário
+#'     informar o número da porta que o navegador usa
+#'     (\code{http://127.0.0.1:XXXXX}) para exibir a documentação em
+#'     html. Para ter esse número, peça a documentação de alguma
+#'     função antes de chamar a aplicação. Veja na seção exemplos como
+#'     fazer.
+#' @return Abre uma aplicação web com shiny.
+#' @usage labestDataView()
+#' @export
+#' @examples
+#' \dontrun{
+#'
+#' options(help.ports = 1111)
+#' help(BanzattoQd1.2.3, help_type = "html")
+#' help(package = "labestData", help_type = "html")
+#'
+#' labestDataView()
+#'
+#' }
+labestDataView <- function() {
+    if (!requireNamespace(package = "shiny", quietly = TRUE)) {
+        stop("Pacote `shiny` não encontrado. Instale-o, por favor.",
+             call. = FALSE)
+    }
+    appDir <- system.file("ShinyApps",
+                          "labestDataView",
+                          package = "labestData")
+    if (appDir == "") {
+        stop(paste(
+            "Não foi possível encontrar diretório",
+            "com a aplicação Shiny.",
+            "Tente reinstalar o `labestData`."),
+            call. = FALSE)
+    }
+        shiny::runApp(appDir, display.mode = "normal")
+}

data-raw/BanzattoQd5.2.1.txt

+densid	peneira	bloco	prod
+10	18	I	11.82
+15	18	I	12.34
+20	18	I	13.41
+10	20	I	6.97
+15	20	I	8.96
+20	20	I	8.48
+10	22	I	7.53
+15	22	I	6.71
+20	22	I	7.82
+10	18	II	12.03
+15	18	II	14.08
+20	18	II	12.98
+10	20	II	10.26
+15	20	II	9.02
+20	20	II	9.66
+10	22	II	7.67
+15	22	II	7.87
+20	22	II	9.44
+10	18	III	12.55
+15	18	III	12.13
+20	18	III	13.35
+10	20	III	9.02
+15	20	III	9.84
+20	20	III	8.5
+10	22	III	7.81
+15	22	III	9.49
+20	22	III	9.37

data-raw/BanzattoQd5.2.4.txt

+recipie	especie	rept	alt
+SPP	E. citriodora	1	26.2
+SPP	E. grandis	1	24.8
+SPG	E. citriodora	1	25.7
+SPG	E. grandis	1	19.6
+Lam	E. citriodora	1	22.8
+Lam	E. grandis	1	19.8
+SPP	E. citriodora	2	26
+SPP	E. grandis	2	24.6
+SPG	E. citriodora	2	26.3
+SPG	E. grandis	2	21.1
+Lam	E. citriodora	2	19.4
+Lam	E. grandis	2	21.4
+SPP	E. citriodora	3	25
+SPP	E. grandis	3	26.7
+SPG	E. citriodora	3	25.1
+SPG	E. grandis	3	19
+Lam	E. citriodora	3	18.8
+Lam	E. grandis	3	22.8
+SPP	E. citriodora	4	25.4
+SPP	E. grandis	4	25.2
+SPG	E. citriodora	4	26.4
+SPG	E. grandis	4	18.6
+Lam	E. citriodora	4	19.2
+Lam	E. grandis	4	21.3

inst/ShinyApps/labestDataView/palatino.css

+/*
+  =============================================================================
+  Arquivo de definições CSS para usar em arquivos R Markdown
+  
+  Walmes Zeviani
+
+  --------------------------------------------
+
+  O padrão do markdown fica em:
+  /usr/lib/R/site-library/markdown/resources/markdown.css
+  =============================================================================
+
+  Esse estilo usa fonte serif (Palatino) e palheta de cores para o 
+  código R inspirados no tema default do Emacs.
+
+  */
+
+/*
+  -----------------------------------------------------------------------------
+  Fonte, paragráfo, cores, margens, legendas
+  -----------------------------------------------------------------------------
+  */
+
+body, td, caption {
+    font-family: "Palatino Linotype", "Book Antiqua", Palatino, serif;
+    background-color: white;
+    font-size: 14px;
+}
+
+body {
+    max-width: 800px;
+    margin: auto;
+    /* padding: 5em; */
+    line-height: 22px;
+}
+
+tt, code, pre {
+    /* font-family: "Lucida Console", Monaco, monospace; */
+    /* font-family: Consolas, "Courier New", Courier, monospace; */
+    font-family: "Andale Mono", monospace;
+}
+
+code, pre {
+    font-size: 13px;
+}
+
+p {
+    margin-top: 1em;
+    margin-bottom: 1em;
+}
+
+/* Será usando para tabelas. */
+figcaption {
+    width: 95%;
+    margin-left: 2.5%;
+    margin-top: 0.5em;
+    margin-bottom: 0.5em;
+    font-size: 14px;
+}
+
+figcaption.tab {
+    width: 95%;
+    margin-left: 2.5%;
+    margin-top: 0.25em;
+    margin-bottom: -0.5em;
+    font-size: 14px;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Estilo de código de acordo com edit-emacs.css ou o mais próximo do
+  emacs possível.
+  -----------------------------------------------------------------------------
+  */
+
+/* Parênteses, colchetes, chaves, pontuação, !, <-, ... */
+pre .paren {
+    color: rgb(104, 118, 135)
+}
+
+/* Palavras reservadas: NULL, NA, Inf, NaN, TRUE, FALSE, T, F */
+pre .literal {
+    /* color: #990073 */
+    color: #00CC00
+}
+
+/* Números. */
+pre .number {
+    /* color: #099; */
+    color: #006332;
+}
+
+/* Comentários. */
+pre .comment {
+    /* color: #ac2020; */
+    color: #998;
+    font-style: italic
+}
+
+/* Funções especiais: function, require, if, else, stop, for, return,
+   while, break, ... */
+pre .keyword {
+    /* color: #900; */
+    color: #0000FF;
+    font-weight: bold
+}
+
+/* Texto para nome de objetos (preto). */
+pre .identifier {
+    color: rgb(0, 0, 0);
+}
+
+/* Strings. */
+pre .string {
+    /* color: #bd8d8b; */
+    color: #d14;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Tabelas
+  -----------------------------------------------------------------------------
+  */
+
+/* Center the table and add top/bottom margins */
+table {
+    /* page-break-before: always; */
+    /* display: table; */
+    /* float: left; */
+    /* margin: auto; */
+    margin-left: auto;
+    margin-right: auto;
+    margin-top: 1em;
+    margin-bottom: 1em;
+    border: none;
+    border-top: 2px solid #000000;
+    border-bottom: 2px solid #000000;
+    border-left: 0px;
+    border-right: 0px;
+    /* border-collapse: separate; */
+    border-collapse: collapse;
+}
+
+table.none {
+    border-top: 0px solid #000000;
+    border-bottom: 0px solid #000000;
+}
+
+table.wide {
+    width: 95%;
+}
+
+th, td, tr {
+    color: #000000;
+    border-bottom: 0px;
+    border-top: 0px;
+    border-left: 0px;
+    border-right: 0px;
+    padding-left: 15px;
+    padding-right: 15px;
+    padding-top: 1px;
+    padding-bottom: 0px;
+}
+
+th {
+    border-bottom: 1px solid #000000;
+}
+
+th.none {
+    border-bottom: 0px solid #000000;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Padrões para fazer destaque de cédulas ou valores
+  -----------------------------------------------------------------------------
+  */
+
+/* Texto na cor vermelha. */
+td.red {
+    /* color: #FF0000; */
+    color: #CC0000;
+}
+
+/* Texto na cor azul. */
+td.blue {
+    /* color: #0000FF; */
+    color: #0000CC;
+}
+
+/* Cédula com cor ciza de fundo. */
+td.shade {
+    background-color: #CCCCCC;
+}
+
+/* Linha embaixo. */
+td.line {
+    border-bottom: 1px solid #000000;
+}
+
+/* Negrito. */
+td.bold {
+    font-weight: bold;
+}
+
+/* Itálico. */
+td.italic {
+    font-style: italic;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Títulos de sessões
+  -----------------------------------------------------------------------------
+  */
+
+h1 {
+    font-size:2.2em;
+    line-height:1.1em;
+}
+
+h2 {
+    font-size: 1.6em;
+    padding-top: 0.7em;
+    padding-bottom: 0.7em;
+}
+
+h3 {
+    font-size:1.3em;
+}
+
+h4 {
+    font-size:1.0em;
+}
+
+h5 {
+    font-size:0.9em;
+}
+
+h6 {
+    font-size:0.8em;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Links
+  -----------------------------------------------------------------------------
+  */
+
+a {
+    /* text-decoration: underline; */
+    text-decoration: none;
+    /* background-color: #F8F8F8; */
+    color: #007560;
+}
+
+a:visited {
+    /* color: #0075EE; */
+    color: rgb(50%, 0%, 50%);
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Imagens
+  -----------------------------------------------------------------------------
+  */
+
+pre, img {
+    max-width: 100%;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Blocos de código/verbatim
+  -----------------------------------------------------------------------------
+  */
+
+/* Blocos de código criados com tripla crase. */
+pre code {
+    /* margin-top: -0.75em; */
+    /* margin-bottom: -0.75em; */
+    /* margin-left: 3em; */
+    display: block;
+    padding: 0.5em;
+    /* padding-left: 0.75em; */
+    /* padding-right: 0.75em; */
+    /* padding-top: 0em; */
+    /* padding-bottom: 0em; */
+    /* background-color: #333333; */
+    /* border: 1px; */
+    /* font-size: 115%; */
+    line-height: 125%;
+}
+
+/* Código sem classe, inline e blocos de warning e error do R. */
+code {
+    /* border: 1px solid #ccc; */
+    /* border-left: 2px dotted #ccc; */
+    /* border-right: 2px dotted #ccc; */
+    background-color: #E6E6E6;
+}
+
+/* Código de classe R, input, output, exceto warnings e errors. */
+code[class] {
+    /* background-color: #F8F8F8; */
+    /* background-color: #E6E6E6; */
+    /* background-color: #EEEEEE; */
+    /* border: 1px; */
+    background-color: #F2F2F2;
+}
+
+
+/*
+  -----------------------------------------------------------------------------
+  Ambiente/bloco de parafrase ou quotation
+  -----------------------------------------------------------------------------
+  */
+
+blockquote {
+    color:#666666;
+    margin:0;
+    padding-left: 1em;
+    border-left: 0.5em #EEE solid;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Linhas horizontais.
+  -----------------------------------------------------------------------------
+  */
+
+hr {
+    height: 0px;
+    border-bottom: none;
+    border-top-width: 1px;
+    /* border-top-style: dotted; */
+    border-top-style: solid;
+    border-top-color: #999999;
+}
+
+hr.white {
+    border-top-color: #FFFFFF;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Caixas de alerta, notificação, erro, etc:
+  http://www.cssportal.com/blog/css-notification-boxes/
+  -----------------------------------------------------------------------------
+  */
+
+.alert-box {
+    color: #555;
+    border-radius: 5px;
+    /* font-family:Tahoma, Geneva, Arial, sans-serif; */
+    font-size: 14px;
+    /* padding:10px 10px 10px 36px; */
+    padding: 10px 10px 10px 20px;
+    margin: 10px;
+}
+
+.alert-box span {
+    font-weight:bold;
+    text-transform:uppercase;
+}
+
+.error {
+    background:#ffecec;
+    border:1px solid #f5aca6;
+}
+.success {
+    background:#e9ffd9;
+    border:1px solid #a6ca8a;
+}
+.warning {
+    background:#fff8c4;
+    border:1px solid #f2c779;
+}
+.notice {
+    background:#e3f7fc;
+    border:1px solid #8ed9f6;
+}
+
+/*
+  -----------------------------------------------------------------------------
+  Ainda não descobri para que servem as definições abaixo
+  -----------------------------------------------------------------------------
+  */
+
+@media print {
+    * {
+      background: transparent !important;
+      color: black !important;
+      filter:none !important;
+      -ms-filter: none !important;
+   }
+
+   body {
+       font-size:12pt;
+       max-width:100%;
+   }
+
+   a, a:visited {
+       text-decoration: underline;
+   }
+
+   hr {
+       visibility: hidden;
+       page-break-before: always;
+   }
+
+   pre, blockquote {
+       padding-right: 1em;
+       page-break-inside: avoid;
+   }
+
+   tr, img {
+       page-break-inside: avoid;
+   }
+
+   img {
+       max-width: 100% !important;
+   }
+
+   @page :left {
+       margin: 15mm 20mm 15mm 10mm;
+   }
+
+   @page :right {
+       margin: 15mm 10mm 15mm 20mm;
+   }
+
+   p, h2, h3 {
+       orphans: 3; widows: 3;
+   }
+
+   h2, h3 {
+       page-break-after: avoid;
+   }
+}
+
+/* ----------------------------------------------------------------------------- */

inst/ShinyApps/labestDataView/server.R

+library(shiny)
+library(xtable)
+
+howmanydigits <- function(x) {
+    x <- na.omit(x)
+    if (is.numeric(x) && all(x%%1 == 0)) {
+        0
+    } else if (is.numeric(x)) {
+        1 + floor(log10(1/min(diff(sort(unique(x))))))
+    } else {
+        0
+    }
+}
+
+shinyServer(function(input, output) {
+    output$TABLE <- renderPrint({
+        da <- eval(parse(text = input$DATASET))
+        a <- switch(class(da),
+                    data.frame = da,
+                    numeric = {
+                        da <- data.frame(da)
+                        names(da) <- input$DATASET
+                        da
+                    },
+                    integer = {
+                        da <- data.frame(da)
+                        names(da) <- input$DATASET
+                        da
+                    })
+        dig <- sapply(a, howmanydigits)
+        print(xtable(a, digits = c(0, dig)), type = "html")
+    })
+    output$DOWNLOADDATA <- downloadHandler(
+        filename = function() {
+            sprintf("%s.txt", input$DATASET)
+        },
+        content = function(file) {
+            write.table(eval(parse(text = input$DATASET)),
+                        file = file,
+                        sep = "\t",
+                        row.names = FALSE,
+                        quote = FALSE)
+        })
+    output$LINK <- renderUI({
+        HTML(sprintf(paste0('<center><a href="http://127.0.0.1:%d',
+                            '/library/labestData/html/%s.html" target="_blank">',
+                            'Documentação</a></center>'),
+                     input$PORTA,
+                     input$DATASET))
+    })
+})

inst/ShinyApps/labestDataView/ui.R

+library(shiny)
+library(xtable)
+library(labestData, lib.loc = "/home/walmes/R/")
+
+L <- ls("package:labestData")
+i <- sapply(L,
+            function(x) {
+                class(eval(parse(text = x)))
+            })
+L <- L[i %in% c("data.frame", "numeric", "integer")]
+
+shinyUI(fluidPage(
+    includeCSS("palatino.css"),
+    # titlePanel("labestData"),
+    h1("labestData"),
+    h3("Conjuntos de Dados para Ensino de Estatística"),
+    tags$em("pet.estatistica.ufpr@gmail.com"),
+    hr(),
+    sidebarLayout(
+        sidebarPanel(
+            selectInput(inputId = "DATASET",
+                        label = "Escolha o dataset:",
+                        choices = L,
+                        selected = sample(1:length(L))),
+            hr(),
+            numericInput(inputId ="PORTA",
+                         label = "Porta:",
+                         value = options()$html.port),
+            uiOutput("LINK"),
+            hr(),
+            downloadButton(outputId = "DOWNLOADDATA",
+                           label = "Download tsv")
+        ),
+        mainPanel(
+            htmlOutput("TABLE")
+        ) # mainPanel
+    ) # sidebarLayout
+)) # fluidPage shinyUI

man/BanzattoQd5.2.1.Rd

+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd5.2.1.R
+\name{BanzattoQd5.2.1}
+\alias{BanzattoQd5.2.1}
+\title{Peneira e densidade de plantio na produção de amendoim}
+\format{Um \code{data.frame} com 27 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{densid}}{Densidade de plantio expresso em número de
+    plantas por metro linear de cultivo.}
+
+\item{\code{peneira}}{Diâmetro dos crivos cículares da peneira usada
+    para classificar as sementes (18/64, 20/64 e 22/64 polegadas).}
+
+\item{\code{bloco}}{Fator considerado para garatir controle local.}
+
+\item{\code{prod}}{Produção média de amendoim em vagens (g) por
+    planta.}
+
+}
+
+Cada parcela tinha 4 linhas de cultivo, espaçadas de 50 cm, com 7
+metros de comprimento, resultando em uma área de 14 m\eqn{^2}. As
+duas linhas externas de cada parcela e meio metro de cada extremidade
+das linhas centrais foram consideradas como bordadura, fazendo-se as
+avaliações apenas no comprimento restante das duas linhas centrais, o
+que resultou em uma área útil de 6 m\eqn{^2}.}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.1,
+    pág. 102)
+}
+\description{
+Dados de um experimento fatorial que estudou o efeito de
+    densidade de plantio e tamanho da peneiras comerciais, de crivos
+    circulares, para classificação das sementes da produção de
+    amendoim (\emph{Arachis hypogaea} L.) variedade Tatu V 53. O
+    experimento foi instalado em delineamento de blocos casualizados.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd5.2.1)
+
+addmargins(with(BanzattoQd5.2.1,
+                tapply(X = prod,
+                       INDEX = list(interaction(peneira, densid),
+                                    bloco),
+                       FUN = sum)))
+
+xyplot(prod ~ densid, data = BanzattoQd5.2.1,
+       groups = peneira, type = c("p", "a"),
+       auto.key = list(title = "Peneira", cex.title = 1,
+                       columns = 1, corner = c(0.95, 0.95)),
+       xlab = "Densidade de plantio (plantas/metro linear)",
+       ylab = "Produção média de amendoim em vagem (g/planta)")
+}
+\keyword{DBC}
+\keyword{FAT2}
+

man/BanzattoQd5.2.4.Rd

+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/BanzattoQd5.2.4.R
+\name{BanzattoQd5.2.4}
+\alias{BanzattoQd5.2.4}
+\title{Efeito de recipientes para para duas espécies de Eucalipto}
+\format{Um \code{data.frame} com 24 observações e 4 variáveis, em que
+\describe{
+
+\item{\code{recipie}}{São os níveis de recipiente estudados: SPP -
+    saco plático pequeno, SPG - saco plástico grande e Lam -
+    laminado.}
+
+\item{\code{especie}}{São as espécies de Eucalipto: \emph{Eucalyptus
+    citriodora} e \emph{Eucalyptus grandis}}.
+
+\item{\code{rept}}{Identifica as repetições de cada combinação dos
+    fatores recipiente e espécie.}
+
+\item{\code{alt}}{Altura das mudas aos 80 dias de idade (cm).}
+
+}}
+\source{
+Banzatto, D. A., Kronka, S. D. (2013). Experimentação
+    Agrícola (4th ed.). Jaboticabal, SP: Funep. (Quadro 5.2.4,
+    pág. 107)
+}
+\description{
+Experimento em esquema fatorial 3 \eqn{\times} 2 para
+    estudar o efeito de 3 tipos de recipientes para a produção de
+    mudas de duas espécies de Eucalipto. O experimento foi instalado
+    em delineamento inteiramente casualizado.
+}
+\examples{
+library(lattice)
+
+data(BanzattoQd5.2.4)
+
+xyplot(alt ~ recipie, data = BanzattoQd5.2.4,
+       groups = especie, type = c("p", "a"),
+       auto.key = list(title = "Espécie", cex.title = 1, font = 3,
+                       columns = 1, corner = c(0.95, 0.95)),
+       xlab = "Recipiente",
+       ylab = "Altura das mudas aos 80 dias de idade (cm)")
+}
+\keyword{DIC}
+\keyword{FAT2}
+

man/labestDataView.Rd

+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/labestDataView.R
+\name{labestDataView}
+\alias{labestDataView}
+\title{Shiny App para Visualização e Download dos Datasets}
+\usage{
+labestDataView()
+}
+\value{
+Abre uma aplicação web com shiny.
+}
+\description{
+Essa função abre uma interface \pkg{shiny} para
+    visualizar as tabelas de dados e consultar a documentação. Além
+    disso, tem um botão para salvar o dado em txt.
+}
+\section{Warning}{
+ Para funcionar, é necessário ter o pacote shiny
+    instalado. Para abrir a documentação dos datasets é necessário
+    informar o número da porta que o navegador usa
+    (\code{http://127.0.0.1:XXXXX}) para exibir a documentação em
+    html. Para ter esse número, peça a documentação de alguma
+    função antes de chamar a aplicação. Veja na seção exemplos como
+    fazer.
+}
+\examples{
+\dontrun{
+
+options(help.ports = 1111)
+help(BanzattoQd1.2.3, help_type = "html")
+help(package = "labestData", help_type = "html")
+
+labestDataView()
+
+}
+}
+\author{
+Walmes Zeviani e Eduardo Ribeiro Jr.
+}
+