consome_dados_sih.r

#Busca de dados de atendimentos hospitalares

#Consumo de todos os dados de internações hospitalares para um determinado ano.
# uso da bibiliteca microdatasus 
#SALDANHA, Raphael de Freitas; BASTOS, Ronaldo Rocha; BARCELLOS, Christovam. Microdatasus: pacote para download e pré-processamento de microdados do Departamento de Informática do SUS (DATASUS). Cad. Saúde Pública, Rio de Janeiro , v. 35, n. 9, e00032419, 2019 . Available from http://ref.scielo.org/dhcq3y.

#remotes::install_github("rfsaldanha/microdatasus")

estados<- c("AC","AL","AM", "AP", "BA","CE","DF","ES","GO","MA","MT","MS","MG","PA","PB", "PR","PE","PI","RJ","RS","RN","RO","RR","SC","SP","SE","TO")

ano_ini<- 2020
ano_fim <- 2020
library(microdatasus)

#Script para download completo. Pode não haver espaço em memória suficiente. 
#Recomenda-se quebrar em três blocos de estados e salvar em arquivos RDS distintos
dados_sih<-
  map_dfr(estados,function(estado){
    res<- try(microdatasus::fetch_datasus(year_start = ano_ini,
                                          year_end = ano_fim,
                                          uf = estado,
                                          month_start = 1,
                                          month_end = 12,
                                          information_system = "SIH-RD"))
    
    if (inherits(res, "try-error")){
      return()
    }
    
    microdatasus::process_sih(res)
  })