---
#title: "Dashboard pandémie COVID-19 inštitútu pre stratégie a analýzy"
title: Inštitút pre stratégie a analýzy
author: COVID-19
logo: D:\\Dokumenty\\ISA\\COVID-19\\logo.png
output: 
  flexdashboard::flex_dashboard:                                                                                                                            
    orientation: rows
    vertical_layout: fill
    source_code: embed
---

```{r global_options, include=FALSE}
knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE)
```

```{js}


```




```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
library(tidyverse)
library(leaflet)
library(tidycovid19)
library(plotly)
library(tmap)
library(tmaptools)
library(rio)
library(openxlsx)
library(ISOcodes)
library(coronavirus)
library(wbstats)
#library(reticulate)
data <- download_jhu_csse_covid19_data()
options(scipen=999)
#use_python("C:\\Users\\Stano\\AppData\\Local\\MICROS~1\\WINDOW~1\\python.exe")
Sys.setlocale(category = "LC_ALL", locale = "slovak")
sk_all <- read.xlsx("D:\\Dokumenty\\ISA\\COVID-19\\covid-slovakia.xlsx", sheet = 1, detectDates = TRUE, sep.names = " ")
sk_reg <- read.xlsx("D:\\Dokumenty\\ISA\\COVID-19\\covid-slovakia.xlsx", sheet = 2, detectDates = TRUE, sep.names = " ")
```

Slovensko
=====================================
Row {data-width=200}
-----------------------------------------------------------------------

### **Celkový počet nakazených**

```{r}
latest <- max(sk_all$Dátum, na.rm = TRUE)



sum_all <-  sk_all[sk_all$Dátum == latest,]$`Celkový počet nakazených`
valueBox(format(sum_all, big.mark = " ", decimal.mark = ","), color = "#3e3699")

```



### **Nárast počtu nakazených \n(oproti predchádzajúcemu dňu)**

```{r}
latest <- max(sk_all$Dátum, na.rm = TRUE)
yesterday <- max(sk_all$Dátum, na.rm = TRUE)
new<- sk_all %>% filter(Dátum == latest)
old <- sk_all %>% filter(Dátum == latest-1)
growth <- round((new$`Celkový počet nakazených`-old$`Celkový počet nakazených`)/old$`Celkový počet nakazených`, 4)
valueBox(paste(format(growth*100, big.mark = " ", decimal.mark = ","), "%", sep = " "), color = "#808080" )

```

### **Počet aktívnych prípadov**

```{r}
latest <- max(sk_all$Dátum, na.rm = TRUE)


sum_active <-  sk_all[sk_all$Dátum == latest,]$`Celkový počet nakazených`-sk_all[sk_all$Dátum == latest,]$`Celkový počet uzdravených` - sk_all[sk_all$Dátum == latest,]$`Celkový počet mŕtvych`
valueBox(format(sum_active, big.mark = " ", decimal.mark = ","))

```




### **Celkový počet uzdravených**


```{r}
latest <- max(sk_all$Dátum, na.rm = TRUE)
rec<- sk_all %>% filter(Dátum == latest) %>% select(`Celkový počet uzdravených`)
rec <- rec$`Celkový počet uzdravených`
valueBox(format(rec, big.mark = " ", decimal.mark = ","), color = "#00ff00")

```




### **Celkový počet mŕtvych**

```{r}
latest <- max(sk_all$Dátum, na.rm = TRUE)
dead<- sk_all %>% filter(Dátum == latest) %>% select(`Celkový počet mŕtvych`)
dead <- dead$`Celkový počet mŕtvych`
valueBox(format(dead, big.mark = " ", decimal.mark = ","), color = "#ff0000")

```




Row {data-width=1000, .tabset}
-----------------------------------------------------------------------
### **Vývoj nového koronavírusu na Slovensku**

```{r}
sk_all <- sk_all %>% mutate(Dátum = as.Date(Dátum, format = "%d-%m-%Y")) %>% filter(Dátum > as.Date("2020-02-29"))

plotly::plot_ly(data = sk_all) %>%
  plotly::add_trace(
    x = ~Dátum,
    # y = ~active_cum,
    y = ~`Celkový počet nakazených` ,
    type = "scatter",
    mode = "lines+markers",
    # name = "Active",
    name = "Nakazení",
    line = list(color = "blue"),
    marker = list(color = "blue")
  ) %>%
  plotly::add_trace(
    x = ~Dátum,
    y = ~`Celkový počet mŕtvych`,
    type = "scatter",
    mode = "lines+markers",
    name = "Mŕtvi",
    line = list(color = "red"),
    marker = list(color = "red")
  ) %>%
    plotly::add_trace(
    x = ~Dátum,
    y = ~`Celkový počet uzdravených`,
    type = "scatter",
    mode = "lines+markers",
    name = "Uzdravení",
    line = list(color = "#00ff00"),
    marker = list(color = "#00ff00")
  ) %>% 
  
  #     plotly::add_trace(
  #   x = ~Dátum,
  #   y = ~`Medián`,
  #   type = "scatter",
  #   mode = "lines+markers",
  #   name = "Medián",
  #   line = list(color = "black"),
  #   marker = list(color = "black")
  # ) %>% 
  
  plotly::layout(
    title = "",
    yaxis = list(title = "Počet prípadov", showgrid = FALSE, showline = TRUE,
    range = c(0,ifelse(round(max(sk_all$`Celkový počet nakazených`), digits = -2) < max(sk_all$`Celkový počet nakazených`), 
                      round(max(sk_all$`Celkový počet nakazených`), digits = -2) +100, round(max(sk_all$`Celkový počet nakazených`) +100, 
                      digits = -2) )), rangemode = "tozero", titlefont = list(size = 10)),
    xaxis = list(title = "Dátum", type = "Date", tickformat = "%d-%m-%Y", showgrid = FALSE, showline = TRUE, rangemode = "tozero",
                 titlefont = list(size = 10)),
    showlegend = FALSE,
    hovermode = "compare")

```


> Aktualizované: `r format(Sys.time(), "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`


### **Vývoj testovania nového koronavírusu na Slovensku**

```{r}
sk_all <- sk_all %>% mutate(Dátum = as.Date(Dátum, format = "%d-%m-%Y")) %>% filter(Dátum > as.Date("2020-02-29"))

plotly::plot_ly(data = sk_all) %>%
  plotly::add_trace(
    x = ~Dátum,
    # y = ~active_cum,
    y = ~`Počet pozitívnych prípadov` ,
    type = "bar",
    #mode = "lines+markers",
    # name = "Active",
    name = "Pozitívne",
    line = list(color = "red"),
    marker = list(color = "red")
  )%>%
  plotly::add_trace(
    x = ~Dátum,
    y = ~`Počet negatívnych prípadov`,
    type = "bar",
    #mode = "lines+markers",
    name = "Negatívne",
    line = list(color = "#00ff00"),
    marker = list(color = "#00ff00")
  ) %>%
    plotly::add_trace(
    x = ~Dátum,
    y = ~`Podiel pozitívnych prípadov`,
    type = "scatter",
    mode = "lines+markers",
    name = "Podiel",
    line = list(color = " #000000"),
    marker = list(color = " #000000"),
    yaxis = "y2"
  ) %>%
        
  
  plotly::layout(
    yaxis2 = list(overlaying = "y",   side = "right", 
    title = "Podiel pozitívnych testov", showgrid = FALSE, 
    showline = TRUE, range = c(0,0.35), tickformat='%', hoverformat = '.2%',  titlefont = list(size = 10)),
    yaxis = list(title = "Počet testovaných", showgrid = FALSE, showline = TRUE, 
    range= c(0, 6000), titlefont = list(size = 10)),
                 #range = c(0,ifelse(round(max(sk_all$`Počet testov`), digits = -2) < max(sk_all$`Počet testov`), 
     #                 round(max(sk_all$`Počet testov`), digits = -2) +500, round(max(sk_all$`Počet testov`)+500, 
      #                digits = -2) )), rangemode = "tozero", titlefont = list(size = 10)),
    xaxis = list(title = "Dátum", type = "Date", tickformat = "%d-%m-%Y", showgrid = FALSE, showline = TRUE, rangemode = "tozero", 
                 titlefont = list(size = 10)),
    showlegend = FALSE,
    hovermode = "compare",
    barmode = 'stack',
    margin = list(l = 50, r = 60, b = 60, t = 00, pad = 0))%>% 
  plotly::config(locale = "de")

 
```

> Aktualizované: `r format(Sys.time(), "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`



### **Regionálny rozptyl nového koronavírusu**
```{r}
source("D:\\Dokumenty\\ISA\\R programming\\Own\\sk_spatial\\okresy2.R")

okresy <- shape_sk(level = "okresy", sh_type = "polygon")
kraje <- shape_sk(level = "kraje", "line")

BA <- okresy[substr(okresy$NM3,1,16) == "Okres Bratislava",]
okresy <- okresy[substr(okresy$NM3,1,16) != "Okres Bratislava",]


BA1 <- BA[BA$NM3 == "Okres Bratislava I" ,]
BA2 <- BA[BA$NM3 == "Okres Bratislava II",]
BA3 <- BA[BA$NM3 == "Okres Bratislava III",]
BA4 <- BA[BA$NM3 == "Okres Bratislava IV",]
BA5 <- BA[BA$NM3 == "Okres Bratislava V",]

BA <- st_union(x = BA1, y = BA2)
BA <- BA %>% mutate(NM3 = "Okres Bratislava") %>% select(1:9)
BA <- st_union(x = BA, y = BA3)
BA <- BA %>% mutate(NM3 = "Okres Bratislava") %>% select(1:9)
BA <- st_union(x = BA, y = BA4)
BA <- BA %>% mutate(NM3 = "Okres Bratislava") %>% select(1:9)
BA <- st_union(x = BA, y = BA5)
BA <- BA %>% mutate(NM3 = "Okres Bratislava") %>% select(1:9)

KE <- okresy[substr(okresy$NM3,1,12) == "Okres Košice",]
okresy <- okresy[substr(okresy$NM3,1,12) != "Okres Košice",]

KE1 <- KE[KE$NM3 == "Okres Košice I" ,]
KE2 <- KE[KE$NM3 == "Okres Košice II",]
KE3 <- KE[KE$NM3 == "Okres Košice III",]
KE4 <- KE[KE$NM3 == "Okres Košice IV",]
KE5 <- KE[KE$NM3 == "Okres Košice - okolie",]


KE <- st_union(x = KE1, y = KE2)
KE <- KE %>% mutate(NM3 = "Okres Košice") %>% select(1:9)
KE <- st_union(x = KE, y = KE3)
KE <- KE %>% mutate(NM3 = "Okres Košice") %>% select(1:9)
KE <- st_union(x = KE, y = KE4)
KE <- KE %>% mutate(NM3 = "Okres Košice") %>% select(1:9)

KE <- rbind(KE, KE5)
KEBA <- rbind(BA, KE)
okresy <- rbind(okresy, KEBA)

reg_covid<- read.xlsx("D:\\Dokumenty\\ISA\\COVID-19\\covid-slovakia.xlsx", sheet = 2, detectDates = TRUE, sep.names = " ")

reg_covid <- reg_covid %>% mutate(Okres = paste("Okres", Okres, sep = " "))

map <- merge(okresy, reg_covid,  by.x = "NM3", by.y = "Okres", all.x = TRUE)
percentiles <- quantile(map$`Celkový počet nakazených`, c(0, 0.05, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 0.95, 1)) 
percentiles <- percentiles[c(1,3, 7, 9,12:13)]

tmap_mode("view")

 tm_shape(map)+tm_borders(alpha=0.7,col="black")+
  tm_fill("Celkový počet nakazených",title = "Celkový počet nakazených",colorNA="gray97", palette="Reds", 
          auto.palette.mapping = FALSE,style = "fixed", breaks = percentiles, 
          #legend.format=list(digits=2, format="f"),
          legend.is.portrait = FALSE, showNA = FALSE)+
  tm_shape(kraje)+tm_lines(alpha=1,col = "black",scale=3)+
  tm_layout(legend.show=TRUE ,outer.margins=0,  scale=0.7, 
            legend.title.size = 1.2,legend.position = c("right","bottom"), legend.only = FALSE, frame = FALSE, legend.text.size = 1.1,
            legend.format = list(text.separator = "až", fun=function(x) formatC(x, digits=0, format="f"))) 

```

> Aktualizované: `r format(Sys.time(), "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`


Svet
=====================================
Row {data-width=200}
-----------------------------------------------------------------------

### **Celkový počet nakazených**

```{r}
latest <- max(data$date, na.rm = TRUE)



sum_all <-  data %>% filter(date == latest) %>% group_by(date) %>% summarise(confirmed= sum(confirmed, na.rm = TRUE))
valueBox(format(sum_all$confirmed,  big.mark = " ", decimal.mark = ","), color = "#3e3699")

```



### **Nárast počtu nakazených \n(oproti predchádzajúcemu dňu)**

```{r}
latest <- max(data$date, na.rm = TRUE)
yesterday <- max(data$date, na.rm = TRUE)
new<- data %>% filter(date == latest) %>% group_by(date) %>% summarise(confirmed= sum(confirmed, na.rm = TRUE))
old <- data %>% filter(date == latest-1) %>%   group_by(date) %>% summarise(confirmed= sum(confirmed, na.rm = TRUE))
growth <- round((new$confirmed - old$confirmed)/old$confirmed, 4)
valueBox(paste(format(growth*100,  big.mark = " ", decimal.mark = ","), "%", sep = " "), color = "#808080")

```


### **Počet aktívnych prípadov**


```{r}
latest <- max(sk_all$Dátum, na.rm = TRUE)


sum_active <- data %>% filter(date == latest) %>% mutate(active = confirmed - recovered - deaths) %>% group_by(date) %>% 
  summarise(active = sum(active, na.rm = TRUE))  

valueBox(format(sum_active$active, big.mark = " ", decimal.mark = ","))

```


### **Celkový počet uzdravených**



```{r}
latest <- max(data$date, na.rm = TRUE)
rec<- data %>% filter(date == latest)%>% group_by(date) %>% summarise(recovered= sum(recovered, na.rm = TRUE))
rec <- rec$recovered
valueBox(format(rec, big.mark = " ", decimal.mark = ","), color = "#00ff00")

```




### **Celkový počet mŕtvych**

```{r}
latest <- max(data$date, na.rm = TRUE)
dead<- data %>% filter(date == latest) %>%  group_by(date) %>% summarise(deaths= sum(deaths, na.rm = TRUE))
dead <- dead$deaths
valueBox(format(dead,  big.mark = " ", decimal.mark = ","), color = "#ff0000")

```


Row {data-width=1000, .tabset}
-----------------------------------------------------------------------
### **Vývoj nového koronavírusu vo svete**

```{r}
world_dev <- data %>% group_by(date) %>% 
             summarise(`Celkový počet nakazených` = sum(confirmed, na.rm = TRUE), 
             `Celkový počet uzdravených` = sum(recovered, na.rm = TRUE), 
             `Celkový počet mŕtvych` = sum(deaths, na.rm = TRUE)) %>% 
             rename(Dátum = date)



plotly::plot_ly(data = world_dev) %>%
  plotly::add_trace(
    x = ~Dátum,
    y = ~`Celkový počet nakazených`,
    type = "scatter",
    mode = "lines+markers",
    # name = "Active",
    name = "Nakazení",
    line = list(color = "blue"),
    marker = list(color = "blue")
  ) %>%
  plotly::add_trace(
    x = ~Dátum,
    y = ~`Celkový počet mŕtvych`,
    type = "scatter",
    mode = "lines+markers",
    name = "Mŕtvi",
    line = list(color = "red"),
    marker = list(color = "red")
  ) %>%
    plotly::add_trace(
    x = ~Dátum,
    y = ~`Celkový počet uzdravených`,
    type = "scatter",
    mode = "lines+markers",
    name = "Uzdravení",
    line = list(color = "#00ff00"),
    marker = list(color = "#00ff00")
  ) %>% 
  
  plotly::layout(
    title = "",
    yaxis = list(title = "Počet prípadov", showgrid = FALSE, showline = TRUE, 
                 range = c(0,ifelse(round(max(world_dev$`Celkový počet nakazených`), digits = -5) < max(world_dev$`Celkový počet nakazených`), 
                      round(max(world_dev$`Celkový počet nakazených`), digits = -5) +100000, round(max(world_dev$`Celkový počet nakazených`), digits = -5) )), rangemode = "tozero", tickformat = "digit",
   titlefont = list(size = 10)),
    xaxis = list(title = "Dátum", type = "Date", tickformat = "%d-%m-%Y", showgrid = FALSE, showline = TRUE, rangemode = "tozero", titlefont = list(size = 10)),
    showlegend = FALSE,
    hovermode = "compare")

```

> Aktualizované: `r format(data$timestamp[1], "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`


### **Porovnanie vývoja nového koronavírusu vo vybraných krajinách**
```{r}

countries <- c("SVK", "CZE", "HUN", "ITA", "POL", "AUT", "ESP", "DEU", "USA", "GBR", "FRA")

world_dev <- data %>% rename(`Celkový počet nakazených`= confirmed, `Celkový počet uzdravených` = recovered,`Celkový počet mŕtvych` = deaths, Dátum = date) 
world_dev <- world_dev %>% filter(iso3c %in% countries)
world_dev <- world_dev %>% mutate(Dátum = as.Date(Dátum, format = "%d-%m-%Y"))

pop <-wb(indicator = "SP.POP.TOTL", startdate = 2018, enddate = 2018) 
pop <- pop %>% select(iso3c, value)
world_dev <- merge.data.frame(x = world_dev, y = pop, by= "iso3c")


world_dev <- world_dev %>% mutate('Celkový počet nakazených na milión obyvateľov' = `Celkový počet nakazených`/(value/1000000)) %>% 
                          select(iso3c, Dátum, `Celkový počet nakazených na milión obyvateľov`) %>% 
                          filter(`Celkový počet nakazených na milión obyvateľov`>0)

for (i in 1:11) {
  if (i==1) {
    
  a <- world_dev %>% filter(iso3c == countries[i])
  n <- count(a)[[1]]
  a <- a %>% mutate(Dátum = c(1:n))
  world_dev_days <- a
  
  }else{
  a <- world_dev %>% filter(iso3c == countries[i])
  n <- count(a)[[1]]
  a <- a %>% mutate(Dátum = 1:n)
  world_dev_days <- rbind.data.frame(world_dev_days, a)
  }
  
}

world_dev_days <- world_dev_days %>%  pivot_wider(names_from = "iso3c", values_from = "Celkový počet nakazených na milión obyvateľov")



plotly::plot_ly(data = world_dev_days) %>%
  plotly::add_trace(
    x = ~Dátum,
    y = ~ ITA,
    type = "scatter",
    mode = "lines+markers",
    name = "Taliansko",
    line = list(color = "brown"),
    marker = list(color = "brown")
  )%>% 
  plotly::add_trace(
    x = ~Dátum,
    y = ~ AUT,
    type = "scatter",
    mode = "lines+markers",
    name = "Rakúsko",
    line = list(color = "green"),
    marker = list(color = "green")
  )%>% 
    plotly::add_trace(
    x = ~Dátum,
    y = ~ CZE,
    type = "scatter",
    mode = "lines+markers",
    name = "Česko",
    line = list(color = "blue"),
    marker = list(color = "blue")
  )%>% 
    plotly::add_trace(
    x = ~Dátum,
    y = ~ HUN,
    type = "scatter",
    mode = "lines+markers",
    name = "Maďarsko",
    line = list(color = "purple"),
    marker = list(color = "purple")
  )%>% 
    plotly::add_trace(
    x = ~Dátum,
    y = ~ POL,
    type = "scatter",
    mode = "lines+markers",
    name = "Poľsko",
    line = list(color = "gold"),
    marker = list(color = "gold")
  )%>%
  plotly::add_trace(
    x = ~Dátum,
    y = ~ DEU,
    type = "scatter",
    mode = "lines+markers",
    name = "Nemecko",
    line = list(color = "olive"),
    marker = list(color = "olive")
  ) %>% 
  plotly::add_trace(
    x = ~Dátum,
    y = ~ USA,
    type = "scatter",
    mode = "lines+markers",
    name = "USA",
    line = list(color = "maroon"),
    marker = list(color = "maroon")
  ) %>% 
  plotly::add_trace(
    x = ~Dátum,
    y = ~ GBR,
    type = "scatter",
    mode = "lines+markers",
    name = "UK",
    line = list(color = "grey"),
    marker = list(color = "grey")
  ) %>% 
  plotly::add_trace(
    x = ~Dátum,
    y = ~ FRA,
    type = "scatter",
    mode = "lines+markers",
    name = "Francúzsko",
    line = list(color = "mediumorchid"),
    marker = list(color = "mediumorchid")
  ) %>% 
  plotly::add_trace(
    x = ~Dátum,
    y = ~ ESP,
    type = "scatter",
    mode = "lines+markers",
    name = "Španielsko",
    line = list(color = "mediumturquoise"),
    marker = list(color = "mediumturquoise")
  ) %>% 
     plotly::add_trace(
    x = ~Dátum,
    y = ~ SVK,
    type = "scatter",
    mode = "lines+markers",
    name = "Slovensko",
    line = list(color = "red"),
    marker = list(color = "red")
  ) %>%
  plotly::layout(
    title = "",
    yaxis = list(title = "Celkový počet nakazených 
na milión obyvateľov", hoverformat = '.2f',  showgrid = FALSE, showline = TRUE, 
    range = c(0,ifelse(round(max(world_dev_days, na.rm = TRUE), digits = -2) < max(world_dev_days, na.rm = TRUE), 
                      round(max(world_dev_days, na.rm = TRUE), digits = -2) +200, round(max(world_dev_days, na.rm = TRUE), 
                      digits = -2) +100 )), 
     rangemode = "tozero", titlefont = list(size = 10)),
    xaxis = list(title = "Dni od prvej nakazenej osoby", showgrid = FALSE, showline = TRUE, rangemode = "tozero", 
                 titlefont = list(size = 10)),
    showlegend = FALSE,
    hovermode = "compare") %>% 
  plotly::config(locale = "de")

```


> Aktualizované: `r format(data$timestamp[1], "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`

### **Stav nového koronavírusu vo svete**

```{r}
tmpdir <- tempdir()#setting a temp directory
url <- "http://ec.europa.eu/eurostat/cache/GISCO/geodatafiles/CNTR_2014_03M_SH.zip"
file <- basename(url)
download.file(url, file)
unzip(file, exdir = tmpdir)
directory <- paste(tmpdir,"\\CNTR_2014_03M_SH\\Data", sep="")
setwd(directory)
cnt <- read_shape("CNTR_RG_03M_2014.shp")

iso <- ISO_3166_1
iso <- iso %>% select(Alpha_2, Alpha_3)
cnt <- merge(cnt, iso, by.x = "CNTR_ID", by.y= "Alpha_2", all.x = TRUE)
cnt <- cnt %>% 
       mutate(Alpha_3 = ifelse(CNTR_ID == "AN", "ANT", ifelse(CNTR_ID == "CP", "CPT", ifelse(CNTR_ID == "EL", "GRC", 
       ifelse(CNTR_ID == "UK", "GBR", Alpha_3))))) %>% filter(!is.na(Alpha_3))
latest <- max(data$date, na.rm = TRUE)

covid_now <- data %>% filter(date == latest)
pop <-wb(indicator = "SP.POP.TOTL", startdate = 2018, enddate = 2018) 
pop <- pop %>% select(iso3c, value)
covid_now <- merge.data.frame(x = covid_now, y = pop, by= "iso3c")

covid_now <- covid_now %>% mutate('Celkový počet nakazených na milión obyvateľov' = confirmed/(value/1000000))

map_covid <- merge(cnt, covid_now, by.x = "Alpha_3", by.y = "iso3c", all.x = TRUE, all.y = TRUE)

percentiles <- quantile(map_covid$`Celkový počet nakazených na milión obyvateľov`, c(0, 0.05, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 0.95, 1), na.rm = TRUE) 
percentiles <- percentiles[c(1, 4, 7, 9,11:13)]


tmap_mode("plot")
tmap_mode("view")

 tm_shape(map_covid)+tm_borders(alpha=0.7,col="black")+
  tm_fill("Celkový počet nakazených na milión obyvateľov",title = "Celkový počet nakazených \n na milión obyvateľov",colorNA="gray97", palette="Reds", 
          auto.palette.mapping = FALSE,style = "fixed", breaks = percentiles, 
          #legend.format=list(digits=2, format="f"),
          legend.is.portrait = FALSE, showNA = FALSE)+
  tm_layout(legend.show=TRUE ,outer.margins=0,  scale=0.65, 
            legend.title.size = 1.2, legend.outside = TRUE, legend.outside.position = c("bottom"), legend.only = FALSE, frame = FALSE,     
            legend.text.size = 1.1,
            legend.format = list(text.separator = "až", fun=function(x) formatC(x, digits=2, big.mark = " ", format="d")))

```

> Aktualizované: `r format(data$timestamp[1], "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`


O projekte
=====================================

**COVID-19**


Cieľom tohto projektu je poskytnúť slovenskej verejnosti najdôležitejšie informácie o vývoji  pandémie COVID-19 na Slovensku a vo svete. 

**Použité údaje**


*Slovensko*: 

Slovenské údaje pochádzajú z Národného centra zdravotníckych informácií.

*Svet*: 

Celosvetové údaje z Centra systemových vied a inžiniertsva na Johns Hopkins University (JHU CSSE). V tomto prehľade sú aktualizované cez balíček [`{tidycovid19}`](https://joachim-gassen.github.io/2020/03/meet-tidycovid19-yet-another-covid-19-related-r-package/){target="_blank"}. Dajú sa stiahnúť nasledovným spôsobom:

```
install.packages("remotes")
devtools::install_github("joachim-gassen/tidy_covid19")
covid19_data <- download_jhu_csse_covid19_data()
```


Údaje o počte obyvateľov jednotlivých krajín  pochádzajú zo svetovej banky a sú načítané prostredníctvom balíčka [`{wbstats}`](https://github.com/nset-ornl/wbstats){target="_blank"}.

Údaje sú pravidelne aktualizované, posledná aktualizácia prebehla `r format(data$timestamp[1], "%d-%m-%Y %H:%M:%S", tz = "Europe/Bratislava")`.



Celý kód použitý na vytvorenie tohto prehľadu je k dipozícií po kliknutí v pravo hore na "</> Source code". 

**Kontakt**


Za vytvorením tohto prehľadu stojí [Inštitút pre stratégie a analýzy na Úrade vlády Slovenskej republiky](https://www.vlada.gov.sk/institut-pre-strategie-a-analyzy-isa/). Pre viac informácií nám môžete napísať na [isa@vlada.gov.sk](mailto:isa@vlada.gov.sk).