## ----include = FALSE----------------------------------------------------------
# Os exemplos baixam dados da internet; por isso não são executados aqui.
knitr::opts_chunk$set(collapse = TRUE, comment = "#>", eval = FALSE)

## ----eval = TRUE--------------------------------------------------------------
library(localdatasus)
head(onde_tem_bairro()[, c("dado", "local", "funcao")])

## -----------------------------------------------------------------------------
# # Óbitos por doenças do aparelho circulatório (capítulo IX da CID-10)
# circ <- obitos_bairro("Rio de Janeiro", 2023, cid = "I")
# 
# # Abertura por sexo
# obitos_bairro("Rio de Janeiro", 2023, cid = c("I", "J"), por = "sexo")
# 
# nascimentos_bairro("Fortaleza", 2023)
# agravos_bairro("dengue", "Recife", 2024, por = "classificacao")

## -----------------------------------------------------------------------------
# pe <- internacoes_bairro("Recife", 2023, cid = "I", uf = "PE")
# attr(pe, "cobertura")   # quantas ganharam bairro, e por que as outras não

## -----------------------------------------------------------------------------
# atendimentos_bairro("Curitiba", 2025, meses = 1:3, cid = "J")   # e-Saúde de Curitiba
# samu_bairro("Recife", 2024, tipo = "causas externas")             # local da ocorrência
# estabelecimentos_bairro("Recife", tipo = "unidade basica")        # CNES, qualquer município

## -----------------------------------------------------------------------------
# mapa_bairro(circ)        # mapa estático (ggplot2)
# mapa_interativo(circ)    # mapa interativo (leaflet)

## ----eval = TRUE--------------------------------------------------------------
ajuda("LDS-05")