---
title: "Brote ficticio de leptospirosis – Perú 2025"
format:
  dashboard:
    self-contained: true
    theme: cosmo
execute:
  echo: false
---

```{r}
library(rio)
library(dplyr)
library(tidyr)
library(ggplot2)
library(lubridate)
library(reactable)
library(leaflet)
library(bslib)
```

```{r}
db_insumo <- import('./data/processed/insumo_tablero.rds')
```


# Inicio

## Row {height=20%}

### KPIS

```{r}
value_box(
  title = "Casos",
  value = db_insumo$kpis$casos,
  showcase = bsicons::bs_icon("person-add"),
  theme = value_box_theme(bg = "white", fg = "#0B538E"),
  class = "border"
)
```

### KPIS

```{r}
value_box(
  title = "Tasa de incidencia",
  value = db_insumo$kpis$casos,
  showcase = bsicons::bs_icon("clipboard2-pulse"),
  theme = value_box_theme(bg = "white", fg = "#0B538E"),
  class = "border"
)
```

### KPIS

```{r}
value_box(
  title = "Hospitalizados",
  value = db_insumo$kpis$hospitalizados,
  showcase = bsicons::bs_icon("hospital"),
  theme = value_box_theme(bg = "white", fg = "#0B538E"),
  class = "border"
)
```

### KPIS

```{r}
value_box(
  title = "Defunciones",
  value = db_insumo$kpis$casos,
  showcase = bsicons::bs_icon("heartbreak"),
  theme = value_box_theme(bg = "white", fg = "#0B538E"),
  class = "border"
)
```

## Row {height=80%}

### Column {width=50%}

```{r}
db_insumo$mapa
```

### Column {width=50%}

#### Row {height=50%}

```{r}
db_insumo$curva
```

#### Row {height=50%}

```{r}
db_insumo$tabla
```

