Skip to content
Snippets Groups Projects
Commit 822e5669 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior
Browse files

Troca caracteres latinos para código ASCII em labestDataView

- Comentários da função atualizados para ASCII (sem warning no build)
- Atualiza .Rd da função conforme sha e81d08
- Corrige carregamento do labestData (em global.R)
parent 6b07c8b9
No related branches found
No related tags found
1 merge request!21Eduardo29: Tabelas do Capítulo 7 e Contribuição para Aplicação Shiny
...@@ -20,7 +20,8 @@ ...@@ -20,7 +20,8 @@
#' } #' }
labestDataView <- function() { labestDataView <- function() {
if (!requireNamespace(package = "shiny", quietly = TRUE)) { if (!requireNamespace(package = "shiny", quietly = TRUE)) {
stop("Pacote `shiny` não encontrado. Instale-o, por favor.", stop(paste("Pacote `shiny` n\u00e3o encontrado.",
"Instale-o, por favor."),
call. = FALSE) call. = FALSE)
} }
appDir <- system.file("ShinyApps", appDir <- system.file("ShinyApps",
...@@ -28,8 +29,8 @@ labestDataView <- function() { ...@@ -28,8 +29,8 @@ labestDataView <- function() {
package = "labestData") package = "labestData")
if (appDir == "") { if (appDir == "") {
stop(paste( stop(paste(
"Não foi possível encontrar diretório", "N\u00e3o foi poss\u00edvel encontrar diret\u00f3rio",
"com a aplicação Shiny.", "com a aplica\u00e7\u00e3o Shiny.",
"Tente reinstalar o `labestData`."), "Tente reinstalar o `labestData`."),
call. = FALSE) call. = FALSE)
} }
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
## global.R ## global.R
library(xtable) library(xtable)
library(labestaData) library(labestData)
L <- ls("package:labestData") L <- ls("package:labestData")
i <- sapply(L, function(x) { i <- sapply(L, function(x) {
......
% Generated by roxygen2 (4.1.1): do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/labestDataView.R % Please edit documentation in R/labestDataView.R
\name{labestDataView} \name{labestDataView}
\alias{labestDataView} \alias{labestDataView}
...@@ -7,29 +7,23 @@ ...@@ -7,29 +7,23 @@
labestDataView() labestDataView()
} }
\value{ \value{
Abre uma aplicação web com shiny. Abre uma aplicação web com shiny em seu navegador padrão.
} }
\description{ \description{
Essa função abre uma interface \pkg{shiny} para Essa função abre uma interface \pkg{shiny} em seu
visualizar as tabelas de dados e consultar a documentação. Além navegador padrão para visualizar as tabelas de dados, consultar
disso, tem um botão para salvar o dado em txt. sua respectiva documentação e salvá-las, em txt, se preciso.
} }
\section{Warning}{ \section{Warning}{
Para funcionar, é necessário ter o pacote shiny Para funcionar, é necessário ter o pacote shiny
instalado. Para abrir a documentação dos datasets é necessário instalado. Sua visualização web depende dos recursos CSS3,
informar o número da porta que o navegador usa Bootstrap, HTML5 e JavaScript5, portanto use navegadores com
(\code{http://127.0.0.1:XXXXX}) para exibir a documentação em suporte para tais recursos (e.g Mozilla Firefox, Chromium Web
html. Para ter esse número, peça a documentação de alguma Browser).
função antes de chamar a aplicação. Veja na seção exemplos como
fazer.
} }
\examples{ \examples{
\dontrun{ \dontrun{
options(help.ports = 1111)
help(BanzattoQd1.2.3, help_type = "html")
help(package = "labestData", help_type = "html")
labestDataView() labestDataView()
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment