---
title: "OEPI-DIRESA CALLAO"
output:
    flexdashboard::flex_dashboard:
      theme: cerulean
      social: menu
      source_code: embed
---

# DENGUE

```{r, message=FALSE, include=FALSE}
library(readr)
library(readxl)
library(lubridate)
library(ggplot2)
library(leaflet)
library(leaflet.extras)
library(tidyverse)
library(DT)
library(sf)
```

```{r}
setwd("C:/Users/jpere/Desktop/Documentos Personales/Proyectos Personales/OEPI")

```

## Mapas

### Mapa mundial de Dengue

```{r}
library(tidyverse)
library(sf)
library(leaflet)
library(readxl)
library(dplyr)
library(readr)

Paises<-st_read("PaisesDelMundo.shp", quiet=TRUE)
Paises=st_transform(Paises, 4326)
DengueMundo<-read.csv("Dengue_2023_Mundo.csv", sep = ";", encoding = "UTF-8")
view(DengueMundo)

WORLD<-leaflet() %>% addProviderTiles("Esri.WorldImagery",group = "Satelital")%>%
  addCircles(data = DengueMundo, popup =DengueMundo$Casos.Confirmados, lng = DengueMundo$X, lat = DengueMundo$Y, 
             color = "red", radius = 5)%>%
  addPolygons(data=Paises, popup = Paises$Pais)
  
WORLD
```
### Mapa de la Región Callao de Dengue

```{r}
library(tidyverse)
library(sf)
library(leaflet)
library(readxl)
library(dplyr)
library(readr)

CALLAO<- st_read("DISTRITOS DEL CALLAO_R.shp", quiet=TRUE)
CALLAO=st_transform(CALLAO, 4326)
DENGUECA2023<-read.csv("Dengue_2023.csv", sep= ";", encoding = "UTF-8")

CA<-leaflet()%>%addProviderTiles(providers$Esri.WorldImagery)%>%
  addCircles(data = DENGUECA2023, lng = DENGUECA2023$x, lat = DENGUECA2023$y, radius = 5, color = "red")%>%
  addPolygons(data = CALLAO, popup = CALLAO$Nombre, color = "blue", opacity = 0.5, weight = 1)
CA
```


## Gráficos

### Casos por distritos y tipo de diagnóstico 2023

### Casos por semana epidemiológica 2023

# COVID-19