R/aih100.R

In fulvionedel/csapAIH: Classificar Condições Sensíveis à Atenção Primária

#' @title Banco com 100 registros de um 'arquivo da AIH' (RD??????.DBC).
#' @name aih100
#' @aliases aih100
#' @docType data
#'
#' @description Amostra aleatória de 100 registros e todas as variáveis de um "arquivo da AIH" (RD??????.DBC), ano 2018.
#'
#' @usage data(aih100)
#'
#' @source
#' \url{http://www2.datasus.gov.br/DATASUS/index.php?area=0901}
#'
#' @references
#' Brasil. Ministério da Saúde. Secretaria de Atenção à Saúde. Departamento de Regulação, Avaliação e Controle. Coordenação Geral de Sistemas de Informação - 2014. SIH – Sistema de Informação Hospitalar do SUS: Manual Técnico Operacional do Sistema. Ministério da Saúde: Brasília, 2015. 87p.
#'
#' @examples
#' data("aih100")
#' str(aih100)
#'
#' @keywords datasets
"aih100"

# Ler o "arquivo da AIH"
## Sem acesso ao ftp do DATASUS
# aih <- read.dbc::read.dbc("../RDRS1801.dbc")
## Com acesso ao ftp do DATASUS
# temp <- tempfile()
# download.file(url="ftp://ftp.datasus.gov.br/dissemin/publicos/SIHSUS/200801_/Dados/RDRS1801.dbc", destfile = temp)
# aih <- read.dbc::read.dbc(temp)

# # Selecionar uma amostra aleatória de 100 registros e todas as variáveis da AIH
# set.seed(1)
# aih100 <- aih[sample(rownames(aih), 100), ]
# rownames(aih100) <- NULL
# # str(aih100)

# # Criar o arquivo dados com os registros selecionados
# write.csv2(aih100, file = "data-raw/aih100.csv")
#
# # Problema de cadeias não ASCII
# sapply(aih100, levels)
# Encoding(levels(aih100$AUD_JUST)) <- "UTF-8"
# levels(aih100$AUD_JUST)
#
# # Mandar pro diretório de dados de exemplo
# usethis::use_data(aih100, overwrite = TRUE, compress = "xz")