diff --git a/R/labestDataView.R b/R/labestDataView.R index 13c54bb8998290551130c4980aec83ecab3bc90e..5ac1896982530ec5bb5cd302ea6158e36c94d73b 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 2d6113e2a6e253671d13296dda31c68bdcdc2d86..c0673506f9786299ac6e7641aa83303610bba299 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() }