R/get_countries.R

In frandiego/covidTracker: Tracking Covid-19

get_countries <- function(path,folder='covid_data'){
  read_covid_data(path=path,folder=folder) %>%
    .[,.(n=sum(dead,na.rm = T)),by=.(country,date)] %>%
    .[,.(n=max(n,na.rm = T)),by=country] %>%
    .[order(-n)] %>%
    .[['country']] -> all_
  fread(file.path(path,folder,'spain_population.csv'))[['region']] -> reg_
  return(list("Spain" = c('Spain',reg_),
         "Rest of the World" = setdiff(all_,c('Spain'))))
}