From 2659ae0cadb88e29eb221570218acddf1b31a6c5 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Mon, 29 Aug 2016 11:57:52 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20gr=C3=A1ficos=20nos=20exemplos=20da?=
 =?UTF-8?q?=20labestDataView.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/labestDataView.R    | 33 ++++++++++++++++++++++++++++++++-
 man/labestDataView.Rd | 33 ++++++++++++++++++++++++++++++++-
 2 files changed, 64 insertions(+), 2 deletions(-)

diff --git a/R/labestDataView.R b/R/labestDataView.R
index 13c54bb8..5ac18969 100644
--- a/R/labestDataView.R
+++ b/R/labestDataView.R
@@ -3,7 +3,9 @@
 #' @author Walmes Zeviani e Eduardo Ribeiro Jr.
 #' @description Essa função abre uma interface \pkg{shiny} em seu
 #'     navegador padrão para visualizar as tabelas de dados, consultar
-#'     sua respectiva documentação e salvá-las, em txt, se preciso.
+#'     sua respectiva documentação e salvá-las, em txt, se preciso. A
+#'     interfaze exibe uma tabela reativa a filtros para as obras e
+#'     keywords que classificam as obras.
 #' @section Warning: Para funcionar, é necessário ter o pacote shiny
 #'     instalado. Sua visualização web depende dos recursos CSS3,
 #'     Bootstrap, HTML5 e JavaScript5, portanto use navegadores com
@@ -13,8 +15,37 @@
 #' @usage labestDataView()
 #' @export
 #' @examples
+#'
+#' # Objetos do pacote labesData.
+#' ls("package:labestData")
+#'
+#' # Dataframe com os pares keywords e datasets.
+#' str(keywords)
+#'
+#' # Cria uma coluna para a obra.
+#' keywords$obra <-
+#'     gsub(pattern = "^ *([A-Z]{1}[a-z]*)[A-Z]{1}[a-z]{1}.*$",
+#'          replacement = "\\1",
+#'          x = keywords$name)
+#'
+#' # Mostra um pedaço do dataframe.
+#' head(keywords)
+#'
+#' library(lattice)
+#'
+#' # Gráfico de Pareto das keywords.
+#' barchart(sort(xtabs(~keyword, data = keywords)))
+#'
+#' ob <- gsub(pattern = "^ *([A-Z]{1}[a-z]*)[A-Z]{1}[a-z]{1}.*$",
+#'            replacement = "\\1",
+#'            x = unique(keywords$name))
+#'
+#' # Gráfico de pareto das obras.
+#' barchart(sort(xtabs(~ob)))
+#'
 #' \dontrun{
 #'
+#' # Abre a interface no navegador.
 #' labestDataView()
 #'
 #' }
diff --git a/man/labestDataView.Rd b/man/labestDataView.Rd
index 2d6113e2..c0673506 100644
--- a/man/labestDataView.Rd
+++ b/man/labestDataView.Rd
@@ -12,7 +12,9 @@ Abre uma aplicação web com shiny em seu navegador padrão.
 \description{
 Essa função abre uma interface \pkg{shiny} em seu
     navegador padrão para visualizar as tabelas de dados, consultar
-    sua respectiva documentação e salvá-las, em txt, se preciso.
+    sua respectiva documentação e salvá-las, em txt, se preciso. A
+    interfaze exibe uma tabela reativa a filtros para as obras e
+    keywords que classificam as obras.
 }
 \section{Warning}{
  Para funcionar, é necessário ter o pacote shiny
@@ -22,8 +24,37 @@ Essa função abre uma interface \pkg{shiny} em seu
     Browser).
 }
 \examples{
+
+# Objetos do pacote labesData.
+ls("package:labestData")
+
+# Dataframe com os pares keywords e datasets.
+str(keywords)
+
+# Cria uma coluna para a obra.
+keywords$obra <-
+    gsub(pattern = "^ *([A-Z]{1}[a-z]*)[A-Z]{1}[a-z]{1}.*$",
+         replacement = "\\\\1",
+         x = keywords$name)
+
+# Mostra um pedaço do dataframe.
+head(keywords)
+
+library(lattice)
+
+# Gráfico de Pareto das keywords.
+barchart(sort(xtabs(~keyword, data = keywords)))
+
+ob <- gsub(pattern = "^ *([A-Z]{1}[a-z]*)[A-Z]{1}[a-z]{1}.*$",
+           replacement = "\\\\1",
+           x = unique(keywords$name))
+
+# Gráfico de pareto das obras.
+barchart(sort(xtabs(~ob)))
+
 \dontrun{
 
+# Abre a interface no navegador.
 labestDataView()
 
 }
-- 
GitLab