## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----load_microdatasus, eval = FALSE------------------------------------------
# if (!requireNamespace("devtools", quietly = TRUE)) {
#   install.packages("devtools")
# }
# library(devtools)
# 
# if (!requireNamespace("microdatasus", quietly = TRUE)) {
#   devtools::install_github("rfsaldanha/microdatasus")
# }
# library(microdatasus)

## ----fetch_datasus, eval=FALSE------------------------------------------------
# chik <- fetch_datasus(year_start = 2017, year_end = 2019,
#                       information_system = "SINAN-CHIKUNGUNYA")
# mal  <- fetch_datasus(year_start = 2004, year_end = 2006,
#                       information_system = "SINAN-MALARIA")
# den  <- fetch_datasus(year_start = 2011, year_end = 2013,
#                       information_system = "SINAN-DENGUE")
# zika <- fetch_datasus(year_start = 2016, year_end = 2021,
#                       information_system = "SINAN-ZIKA")

## ----process_microdatasus, eval = FALSE---------------------------------------
# chik2 <- process_sinan_chikungunya(chik)
# mal2  <- process_sinan_malaria(mal)
# den2  <- process_sinan_dengue(den)
# zika2 <- process_sinan_zika(zika)

## ----install_sivirep, eval = FALSE--------------------------------------------
# install.packages(
#   "sivirep",
#   repos = c("https://epiverse-trace.r-universe.dev", "https://cloud.r-project.org")
# )
# library(sivirep)

## ----events_sivirep, eval = FALSE---------------------------------------------
# events <- list_events()
# knitr::kable(events)

## ----import_sivirep, eval = FALSE---------------------------------------------
# data <- import_data_event(nombre_event = "Zika",
#                           years = 2023,
#                           ruta_dir = ".")