library(dplyr)
library(highcharter)
library(xts)

cov <- read.csv("proj2/owid-covid-data.csv", header = TRUE)

df <- data.frame(as.Date(cov$date), cov$location, cov$total_deaths)

cov_xts <- xts(df[-1], order.by = date)

highchart(type = "stock") %>% 
  hc_add_series(df[df$location == "Poland",]$total_deaths, type = "line")