data %>% head(40) %>% DT::datatable()
B %>% leaflet() %>% addTiles() %>% addMarkers(lng = ~longitude, lat = ~latitude, label = ~Muertos)