Olá, comunidade! Sou novo por aqui.
Estou construindo um pacote no R chamado “rsisagua” para baixar e filtrar dados do Sistema de Informações de Vigilância da Qualidade da Água para Consumo Humano (Sisagua).
Já inseri praticamente todos os elementos do pacote, mas ao checar, o R aponta para um erro com os exemplos (“examples”) das funções, o qual não consigo encontrar a resposta em lugar algum.
Segue o trecho do erro:
checking examples … ERROR
Running examples in ‘rsisagua-Ex.R’ failed
The error occurred in:
R version 4.1.2 (2021-11-01) – “Bird Hippie”
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type ‘license()’ or ‘licence()’ for distribution details.
Natural language support but running in an English locale
R is a collaborative project with many contributors.
Type ‘contributors()’ for more information and
‘citation()’ on how to cite R or R packages in publications.
Type ‘demo()’ for some demos, ‘help()’ for on-line help, or
‘help.start()’ for an HTML browser interface to help.
Type ‘q()’ to quit R.
pkgname ← “rsisagua”
source(file.path(R.home(“share”), “R”, “examples-header.R”))
Error in grDevices::pdf(paste(pkgname, “-Ex.pdf”, sep = “”), encoding = “ISOLatin1”) :
cannot open file ‘rsisagua-Ex.pdf’
Calls: source → withVisible → eval → eval →
Alguém já se deparou com algo parecido e consegue me ajudar, por gentileza?
Abaixo, segue o arquivo de uma das funções que estou utilizando no pacote:
#‘Download dos dados de controle mensal - Amostras fora do padrao
#’
#’@param periodo Selecao do ou dos anos de referencia, a partir de 2014.
#’@param regiao Selecao da ou das regioes geograficas.
#’@param unidade_federativa Selecao da ou das unidades federativas.
#’@details Essa funcao da acesso aos dados do monitoramento da qualidade da agua
#’ realizado pelo prestador de servico em frequencia inferior a mensal, contemplando
#’ o detalhamento dos resultados das analises de qualidade da agua que nao atenderam
#’ ao padrao de potablidade.
#’@return Data frame do conjunto de dados com filtros a partir dos parametros da funcao
#’@examples \dontrun{
#‘download_cmamostras(regiao = “NORTE”)
#‘download_cmamostras(unidade_federativa = “CE”)
#’}
#’
#’@note O periodo de dados e um campo obrigatorio e inicia em 2014 ate o ano atual.
#'Os parametros regiao e unidade_federativa devem sempre ser inseridos com letra
#‘maiuscula e entre aspas, conforme exemplo.
#’@export
‘’’
download_cmamostras ← function(periodo,regiao=NULL,unidade_federativa=NULL){
#Initial Warnings
if (missing(periodo) & missing(regiao) & missing(unidade_federativa)){
usethis::ui_stop(“Voce deve inserir, ao menos, o argumento periodo para
baixar os dados de todas as regioes e unidades federativas”)
}
if (missing(periodo)){
usethis::ui_stop(“Voce deve inserir os anos de selecao dos dados no argumento
periodo”)
}
list_uf ← c(“AC”,“AL”,“AM”,“AP”,“BA”,“CE”,“DF”,“ES”,“GO”,“MA”,“MG”,
“MS”,“MT”,“PA”,“PB”,“PE”,“PI”,“PR”,“RJ”,“RN”,“RO”,“RR”,
“RS”,“SC”,“SE”,“SP”,“TO”)
list_regiao ← c(“NORTE”,“NORDESTE”,“SUL”,“CENTRO-OESTE”,“SUDESTE”)
if(is.null(regiao)==TRUE){
regiao ← list_regiao
}
if(is.null(unidade_federativa)==TRUE){
unidade_federativa ← list_uf
}
#Download and unzip
temp ← tempfile(fileext = “.zip”)
utils::download.file(“https://sage.saude.gov.br/dados/sisagua/controle_mensal_amostras_fora_padrao.zip”, temp)
datazip ← utils::unzip(temp)
#Load data and filter
cmamostras ← data.table::fread(datazip, sep=";")
cmamostras ← cmamostras %>%
janitor::clean_names() %>%
dplyr::filter(cmamostras$ano_de_referencia %in% periodo) %>%
dplyr::filter(cmamostras$regiao_geografica %in% regiao) %>%
dplyr::filter(cmamostras$uf %in% unidade_federativa)
return (cmamostras)
}
‘’’
Desde já, agradeço a atenção de tod@s!