misc/world/data/make_world_windows.R

(path_rds <- Sys.getenv("PATH_RDS"))

l <- list(
  AFG = list( # Afghanistan
    c("2020-03-18", "2020-04-02"),
    c("2020-04-20", "2020-06-01"),
    c("2020-11-02", "2020-11-21"),
    c("2021-03-12", "2021-04-22")
  ),
  AGO = list( # Angola
    c("2020-06-12", "2020-07-25"),
    c("2020-10-01", "2020-10-31"),
    c("2021-03-25", "2021-05-10")
  ),
  ALB = list( # Albania
    c("2020-03-01", "2020-03-27"),
    c("2020-06-03", "2020-06-18"),
    c("2020-06-21", "2020-08-28"),
    c("2020-10-28", "2020-11-23"),
    c("2021-01-31", "2021-02-09")
  ),
  AND = list( # Andorra
    c("2020-03-09", "2020-03-30"),
    c("2020-08-10", "2020-10-28"),
    c("2021-02-27", "2021-04-07")
  ),
  ARE = list( # United Arab Emirates
    c("2020-03-14", "2020-04-10"),
    c("2020-05-04", "2020-05-23"),
    c("2020-08-08", "2020-09-19"),
    c("2020-12-25", "2021-01-15")
  ),
  AUS = list( # Australia
    c("2020-03-04", "2020-03-28"),
    c("2020-06-12", "2020-07-20")
  ),
  AUT = list( # Austria
    c("2020-02-25", "2020-03-27"),
    c("2020-06-21", "2020-07-06"),
    c("2020-08-03", "2020-08-23"),
    c("2020-08-31", "2020-09-20"),
    c("2020-10-15", "2020-11-12"),
    c("2021-02-08", "2021-03-28")
  ),
  AZE = list( # Azerbaijan
    c("2020-03-08", "2020-04-11"),
    c("2020-04-29", "2020-05-18"),
    c("2020-05-22", "2020-06-08"),
    c("2020-08-10", "2020-08-24"),
    c("2020-10-02", "2020-10-25"),
    c("2020-11-09", "2020-11-29"),
    c("2021-03-04", "2021-04-05")
  ),
  BDI = list( # Burundi
    c("2020-12-19", "2021-01-22")
  ),
  BEL = list( # Belgium
    c("2020-03-01", "2020-04-01"),
    c("2020-07-01", "2020-08-10"),
    c("2020-09-01", "2020-09-27"),
    c("2020-09-28", "2020-10-25"),
    c("2021-03-05", "2021-03-28")
  ),
  BEN = list( # Benin
    c("2020-05-26", "2020-06-27"),
    c("2020-12-16", "2021-02-21")
  ),
  BFA = list( # Burkina Faso
    c("2020-03-05", "2020-03-27"),
    c("2020-11-08", "2020-12-27")
  ),
  BGD = list( # Bangladesh
    c("2020-03-27", "2020-04-10"),
    c("2020-04-20", "2020-06-20"),
    c("2020-11-07", "2020-11-25"),
    c("2021-03-03", "2021-04-10")
  ),
  BGR = list( # Bulgaria
    c("2020-03-01", "2020-03-21"),
    c("2020-05-28", "2020-06-13"),
    c("2020-06-15", "2020-07-24"),
    c("2020-10-01", "2020-11-07"),
    c("2021-01-19", "2021-02-13"),
    c("2021-02-14", "2021-03-28")
  ),
  BHR = list( # Bahrain
    c("2020-03-11", "2020-05-16"),
    c("2020-08-30", "2020-09-06"),
    c("2020-12-15", "2021-01-10"),
    c("2021-01-23", "2021-02-17"),
    c("2021-03-14", "2021-04-13")
  ),
  BHS = list( # Bahamas
    c("2020-07-01", "2020-07-28")
  ),
  BIH = list( # Bosnia and Herzegovina
    c("2020-03-01", "2020-04-02"),
    c("2020-05-31", "2020-07-12"),
    c("2020-10-08", "2020-11-01"),
    c("2021-02-11", "2021-03-25")
  ),
  BLR = list( # Belarus
    c("2020-03-21", "2020-04-12"),
    c("2020-09-13", "2020-10-28"),
    c("2020-11-08", "2020-11-29")
  ),
  BLZ = list( # Belize
    c("2020-07-23", "2020-08-15"),
    c("2020-11-20", "2020-12-12")
  ),
  BOL = list( # Bolivia
    c("2020-04-01", "2020-06-05"),
    c("2020-06-15", "2020-07-25"),
    c("2020-11-29", "2021-01-16")
  ),
  BRA = list( # Brazil
    c("2020-02-28", "2020-03-24"),
    c("2020-04-04", "2020-05-11"),
    c("2020-11-04", "2020-12-06"),
    c("2021-02-16", "2021-03-28")
  ),
  BRB = list( # Barbados
    c("2020-12-17", "2021-01-15"),
    c("2021-01-31", "2021-02-20")
  ),
  BWA = list( # Botswana
    c("2020-06-20", "2020-11-30")
  ),
  CAF = list( # Central African Republic
    c("2020-04-20", "2020-06-10"),
    c("2021-03-06", "2021-04-23")
  ),
  CAN = list( # Canada
    c("2020-03-05", "2020-03-30"),
    c("2020-08-20", "2020-10-17"),
    c("2020-11-07", "2020-12-12"),
    c("2021-03-23", "2021-04-18")
  ),
  CHE = list( # Switzerland
    c("2020-02-25", "2020-03-25"),
    c("2020-06-08", "2020-07-13"),
    c("2020-07-17", "2020-09-17"),
    c("2020-09-30", "2020-11-02"),
    c("2021-03-05", "2021-04-02")
  ),
  CHL = list( # Chile
    c("2020-03-02", "2020-03-28"),
    c("2020-04-22", "2020-06-01"),
    c("2020-12-16", "2021-01-27"),
    c("2021-02-22", "2021-04-03")
  ),
  CHN = list( # China
    c("2020-01-15", "2020-02-05"),
    c("2020-03-12", "2020-03-24"),
    c("2020-07-06", "2020-08-01"),
    c("2020-11-16", "2020-11-25"),
    c("2021-01-06", "2021-01-20")
  ),
  CIV = list( # Côte d'Ivoire
    c("2020-03-05", "2020-04-13"),
    c("2020-05-24", "2020-06-22"),
    c("2020-12-22", "2021-01-24"),
    c("2021-02-22", "2021-03-20")
  ),
  CMR = list( # Cameroon
    c("2020-03-14", "2020-04-01"),
    c("2020-04-18", "2020-07-07"),
    c("2020-09-27", "2021-02-20")
  ),
  COD = list( # Congo - Kinshasa
    c("2020-03-05", "2020-04-04"),
    c("2020-04-20", "2020-05-30"),
    c("2020-11-12", "2020-12-13")
  ),
  COG = list( # Congo - Brazzaville
    c("2020-03-28", "2020-08-11"),
    c("2020-09-30", "2020-12-31")
  ),
  COL = list( # Colombia
    c("2020-03-01", "2020-04-01"),
    c("2020-05-10", "2020-08-06"),
    c("2020-12-09", "2020-12-25"),
    c("2021-03-13", "2021-04-22")
  ),
  COM = list( # Comoros
    c("2020-11-27", "2021-01-25")
  ),
  CPV = list( # Cape Verde
    c("2020-06-07", "2020-11-02"),
    c("2020-12-26", "2021-01-17"),
    c("2021-03-10", "2021-04-25")
  ),
  CRI = list( # Costa Rica
    c("2020-03-01", "2020-03-29"),
    c("2020-05-20", "2020-07-21"),
    c("2020-08-02", "2020-09-15"),
    c("2021-04-07", "2021-05-07")
  ),
  CUB = list( # Cuba
    c("2020-03-10", "2020-04-13"),
    c("2020-07-17", "2020-08-11"),
    c("2020-12-14", "2021-02-09"),
    c("2021-03-22", "2021-04-07")
  ),
  CYP = list( # Cyprus
    c("2020-03-01", "2020-04-04"),
    c("2020-07-01", "2020-08-12"),
    c("2020-09-05", "2020-11-09"),
    c("2021-02-20", "2021-03-03"),
    c("2021-04-02", "2021-04-26")
  ),
  CZE = list( # Czechia
    c("2020-03-01", "2020-03-29"),
    c("2020-08-21", "2020-09-21"),
    c("2020-09-28", "2020-10-25"),
    c("2020-12-03", "2021-01-10"),
    c("2021-02-01", "2021-03-09")
  ),
  DEU = list( # Germany
    c("2020-02-15", "2020-03-20"),
    c("2020-07-10", "2020-08-23"),
    c("2020-10-01", "2020-11-08"),
    c("2021-03-06", "2021-04-01")
  ),
  DJI = list( # Djibouti
    c("2020-03-15", "2020-04-22"),
    c("2020-05-03", "2020-05-28"),
    c("2021-02-23", "2021-04-10")
  ),
  DNK = list( # Denmark
    c("2020-02-18", "2020-04-10"),
    c("2020-07-10", "2020-08-17"),
    c("2020-08-28", "2020-09-24"),
    c("2020-10-18", "2020-10-31"),
    c("2020-11-30", "2020-12-20")
  ),
  DOM = list( # Dominican Republic
    c("2020-03-01", "2020-03-28"),
    c("2020-06-02", "2020-07-30"),
    c("2020-10-25", "2021-01-15")
  ),
  DZA = list( # Algeria
    c("2020-03-06", "2020-03-24"),
    c("2020-04-04", "2020-05-21"),
    c("2020-06-20", "2020-07-05"),
    c("2020-10-06", "2020-10-28"),
    c("2020-10-30", "2020-11-20"),
    c("2021-04-04", "2021-05-06")
  ),
  ECU = list( # Ecuador
    c("2020-03-06", "2020-03-23"),
    c("2020-05-29", "2020-08-08")
  ),
  EGY = list( # Egypt
    c("2020-02-25", "2020-03-25"),
    c("2020-03-29", "2020-04-07"),
    c("2020-04-20", "2020-06-18"),
    c("2020-10-17", "2020-12-14"),
    c("2020-12-20", "2021-01-03")
  ),
  ERI = list( # Eritrea
    c("2020-10-19", "2021-01-20")
  ),
  ESP = list( # Spain
    c("2020-02-22", "2020-03-16"),
    c("2020-07-03", "2020-08-07"),
    c("2020-10-09", "2020-11-04"),
    c("2020-12-20", "2021-01-26"),
    c("2021-03-14", "2021-04-27")
  ),
  EST = list( # Estonia
    c("2020-02-25", "2020-04-05"),
    c("2020-07-20", "2020-10-06"),
    c("2020-10-17", "2020-11-15"),
    c("2020-11-16", "2020-12-26"),
    c("2021-02-08", "2021-03-14")
  ),
  ETH = list( # Ethiopia
    c("2020-05-12", "2020-06-05"),
    c("2020-07-07", "2020-07-28"),
    c("2020-08-05", "2020-08-23"),
    c("2021-02-28", "2021-04-03")
  ),
  FIN = list( # Finland
    c("2020-02-25", "2020-03-22"),
    c("2020-09-01", "2020-10-18"),
    c("2020-11-09", "2020-12-02"),
    c("2021-01-08", "2021-03-22")
  ),
  FRA = list( # France
    c("2020-02-26", "2020-03-14"),
    c("2020-07-01", "2020-09-27"),
    c("2020-10-05", "2020-11-09"),
    c("2021-03-08", "2021-04-08")
  ),
  GAB = list( # Gabon
    c("2020-03-31", "2020-05-25"),
    c("2021-01-04", "2021-02-19")
  ),
  GBR = list( # United Kingdom
    c("2020-02-20", "2020-03-20"),
    c("2020-07-19", "2020-08-17"),
    c("2020-08-30", "2020-10-24"),
    c("2020-12-06", "2021-01-07")
  ),
  GEO = list( # Georgia
    c("2020-02-25", "2020-04-13"),
    c("2020-08-27", "2020-09-20"),
    c("2020-10-11", "2020-10-25"),
    c("2020-11-06", "2020-12-07"),
    c("2021-03-24", "2021-04-26")
  ),
  GHA = list( # Ghana
    c("2020-03-10", "2020-05-09"),
    c("2020-05-24", "2020-07-12"),
    c("2021-01-02", "2021-01-30")
  ),
  GIN = list( # Guinea
    c("2020-03-18", "2020-04-24"),
    c("2021-02-01", "2021-03-17")
  ),
  GMB = list( # Gambia
    c("2020-07-06", "2020-08-20"),
    c("2020-12-30", "2021-02-19")
  ),
  GRC = list( # Greece
    c("2020-02-22", "2020-03-16"),
    c("2020-07-24", "2020-08-16"),
    c("2020-09-04", "2020-10-02"),
    c("2020-10-13", "2020-11-14"),
    c("2021-01-19", "2021-02-13"),
    c("2021-03-01", "2021-04-12")
  ),
  GTM = list( # Guatemala
    c("2020-03-28", "2020-06-03"),
    c("2020-06-04", "2020-07-17")
  ),
  GUY = list( # Guyana
    c("2020-07-07", "2020-09-01"),
    c("2021-02-18", "2021-03-29")
  ),
  HND = list( # Honduras
    c("2020-03-05", "2020-05-30"),
    c("2020-05-31", "2020-06-30")
  ),
  HRV = list( # Croatia
    c("2020-03-05", "2020-03-27"),
    c("2020-06-06", "2020-06-28"),
    c("2020-08-06", "2020-08-28"),
    c("2020-10-05", "2020-11-02"),
    c("2021-03-01", "2021-04-14")
  ),
  HTI = list( # Haiti
    c("2020-04-24", "2020-06-05"),
    c("2020-11-17", "2021-01-28")
  ),
  HUN = list( # Hungary
    c("2020-03-01", "2020-03-28"),
    c("2020-07-03", "2020-08-23"),
    c("2020-08-24", "2020-09-13"),
    c("2020-10-15", "2020-11-11"),
    c("2021-02-10", "2021-03-16")
  ),
  IDN = list( # Indonesia
    c("2020-02-28", "2020-03-21"),
    c("2020-04-27", "2020-07-08"),
    c("2020-08-22", "2020-09-03"),
    c("2020-11-01", "2020-12-14"),
    c("2021-01-01", "2021-01-14")
  ),
  IND = list( # India
    c("2020-03-06", "2020-04-12"),
    c("2020-06-10", "2020-08-04"),
    c("2020-08-22", "2020-09-12"),
    c("2021-03-31", "2021-05-02")
  ),
  IRL = list( # Ireland
    c("2020-02-25", "2020-03-23"),
    c("2020-07-05", "2020-08-30"),
    c("2020-10-03", "2020-10-20"),
    c("2020-12-13", "2020-12-26"),
    c("2020-12-31", "2021-01-08")
  ),
  IRN = list( # Iran
    c("2020-02-14", "2020-03-07"),
    c("2020-03-20", "2020-03-30"),
    c("2020-05-01", "2020-05-22"),
    c("2020-09-02", "2020-10-02"),
    c("2020-10-11", "2020-11-14"),
    c("2021-01-19", "2021-03-07"),
    c("2021-03-27", "2021-04-18")
  ),
  IRQ = list( # Iraq
    c("2020-02-20", "2020-04-09"),
    c("2020-05-23", "2020-06-10"),
    c("2020-06-11", "2020-06-28"),
    c("2020-07-14", "2020-08-26"),
    c("2021-01-31", "2021-02-21"),
    c("2021-02-22", "2021-04-26")
  ),
  ISL = list( # Iceland
    c("2020-02-20", "2020-03-27"),
    c("2020-07-14", "2020-08-07"),
    c("2020-09-04", "2020-10-10")
  ),
  ISR = list( # Israel
    c("2020-02-25", "2020-04-03"),
    c("2020-06-14", "2020-07-15"),
    c("2020-08-24", "2020-09-27"),
    c("2020-11-21", "2021-01-20")
  ),
  ITA = list( # Italy
    c("2020-02-20", "2020-03-21"),
    c("2020-08-10", "2020-09-01"),
    c("2020-09-28", "2020-11-05"),
    c("2021-02-12", "2021-03-14")
  ),
  JAM = list( # Jamaica
    c("2020-03-01", "2020-05-03"),
    c("2020-07-09", "2020-09-10"),
    c("2021-01-21", "2021-02-20")
  ),
  JOR = list( # Jordan
    c("2020-03-05", "2020-03-27"),
    c("2020-04-27", "2020-05-20"),
    c("2020-05-22", "2020-06-16"),
    c("2020-08-01", "2020-09-01"),
    c("2020-09-04", "2020-10-08"),
    c("2020-10-09", "2020-11-14"),
    c("2021-02-05", "2021-03-19")
  ),
  JPN = list( # Japan
    c("2020-02-12", "2020-03-16"),
    c("2020-03-20", "2020-04-12"),
    c("2020-06-17", "2020-08-03"),
    c("2020-10-27", "2020-11-24"),
    c("2020-12-28", "2021-01-17"),
    c("2021-03-22", "2021-04-26")
  ),
  KAZ = list( # Kazakhstan
    c("2020-03-05", "2020-03-31"),
    c("2020-04-01", "2020-06-02"),
    c("2020-10-15", "2020-11-22"),
    c("2021-01-09", "2021-01-26"),
    c("2021-03-09", "2021-04-26")
  ),
  KEN = list( # Kenya
    c("2020-03-10", "2020-07-28"),
    c("2020-09-15", "2020-11-09"),
    c("2021-02-22", "2021-03-30")
  ),
  KGZ = list( # Kyrgyzstan
    c("2020-03-14", "2020-04-14"),
    c("2020-06-04", "2020-08-01"),
    c("2020-09-12", "2020-10-26"),
    c("2021-03-07", "2021-04-25")
  ),
  KHM = list( # Cambodia
    c("2021-03-16", "2021-05-05")
  ),
  KOR = list( # South Korea
    c("2020-02-07", "2020-02-29"),
    c("2020-05-01", "2020-06-06"),
    c("2020-08-08", "2020-08-18"),
    c("2020-11-09", "2020-12-21"),
    c("2021-03-22", "2021-04-17")
  ),
  KWT = list( # Kuwait
    c("2020-02-27", "2020-05-25"),
    c("2020-06-14", "2020-07-04"),
    c("2020-12-26", "2021-01-16"),
    c("2021-01-24", "2021-02-13")
  ),
  LBN = list( # Lebanon
    c("2020-02-15", "2020-03-26"),
    c("2020-06-21", "2020-08-27"),
    c("2020-09-07", "2020-10-05"),
    c("2020-12-18", "2021-01-18")
  ),
  LBR = list( # Liberia
    c("2020-03-10", "2020-07-10"),
    c("2020-09-20", "2020-12-16")
  ),
  LBY = list( # Libya
    c("2020-05-10", "2020-06-09"),
    c("2020-07-09", "2020-08-19"),
    c("2020-08-21", "2020-10-28"),
    c("2020-12-31", "2021-01-22"),
    c("2021-02-14", "2021-03-14")
  ),
  LIE = list( # Liechtenstein
    c("2020-09-28", "2020-10-30")
  ),
  LKA = list( # Sri Lanka
    c("2020-03-01", "2020-05-05"),
    c("2020-09-19", "2020-10-30"),
    c("2021-01-03", "2021-01-24"),
    c("2021-04-14", "2021-05-04")
  ),
  LSO = list( # Lesotho
    c("2020-06-21", "2020-07-29"),
    c("2020-11-21", "2021-01-14")
  ),
  LTU = list( # Lithuania
    c("2020-03-08", "2020-03-26"),
    c("2020-06-27", "2020-08-24"),
    c("2020-09-07", "2020-09-30"),
    c("2020-10-11", "2020-11-10"),
    c("2020-11-30", "2020-12-25"),
    c("2021-03-08", "2021-04-21")
  ),
  LUX = list( # Luxembourg
    c("2020-03-08", "2020-03-22"),
    c("2020-06-05", "2020-07-18"),
    c("2020-10-02", "2020-11-03")
  ),
  LVA = list( # Latvia
    c("2020-02-29", "2020-04-01"),
    c("2020-09-13", "2020-10-10"),
    c("2020-10-19", "2020-12-07")
  ),
  MAR = list( # Morocco
    c("2020-03-05", "2020-03-30"),
    c("2020-05-31", "2020-07-02"),
    c("2020-07-16", "2020-08-09"),
    c("2020-08-24", "2020-09-20"),
    c("2020-10-02", "2020-11-16")
  ),
  MCO = list( # Monaco
    c("2020-09-30", "2020-11-12"),
    c("2020-11-30", "2021-01-17")
  ),
  MDA = list( # Moldova
    c("2020-03-01", "2020-04-10"),
    c("2020-05-25", "2020-06-22"),
    c("2020-07-17", "2020-09-06"),
    c("2020-09-09", "2020-10-15"),
    c("2020-11-02", "2020-12-07"),
    c("2021-01-25", "2021-03-21")
  ),
  MDG = list( # Madagascar
    c("2020-04-19", "2020-06-04"),
    c("2020-06-13", "2020-07-19"),
    c("2021-03-10", "2021-04-25")
  ),
  MEX = list( # Mexico
    c("2020-03-03", "2020-03-29"),
    c("2020-03-30", "2020-04-10"),
    c("2020-04-12", "2020-04-26"),
    c("2020-04-29", "2020-06-12"),
    c("2021-01-04", "2021-01-24")
  ),
  MLI = list( # Mali
    c("2020-03-20", "2020-04-26"),
    c("2020-10-28", "2020-11-28"),
    c("2021-02-20", "2021-03-20")
  ),
  MLT = list( # Malta
    c("2020-03-01", "2020-04-12"),
    c("2020-07-15", "2020-08-17"),
    c("2020-09-26", "2020-10-22"),
    c("2020-12-24", "2021-01-14"),
    c("2021-02-17", "2021-03-11")
  ),
  MMR = list( # Myanmar
    c("2020-08-10", "2020-08-30"),
    c("2020-08-31", "2020-09-28")
  ),
  MNG = list( # Mongolia
    c("2020-10-07", "2020-12-02"),
    c("2021-01-19", "2021-02-11"),
    c("2021-03-05", "2021-04-25")
  ),
  MOZ = list( # Mozambique
    c("2020-03-20", "2020-06-30"),
    c("2020-07-20", "2020-08-17"),
    c("2020-09-01", "2020-09-22"),
    c("2020-12-29", "2021-01-21")
  ),
  MRT = list( # Mauritania
    c("2020-05-01", "2020-06-26"),
    c("2020-11-17", "2020-12-11")
  ),
  MUS = list( # Mauritius
    c("2020-03-10", "2020-04-10")
  ),
  MWI = list( # Malawi
    c("2020-05-01", "2020-07-22"),
    c("2020-12-26", "2021-01-23")
  ),
  MYS = list( # Malaysia
    c("2020-02-25", "2020-03-25"),
    c("2020-08-27", "2020-10-29"),
    c("2020-12-27", "2021-02-02"),
    c("2021-04-07", "2021-05-09")
  ),
  NAM = list( # Namibia
    c("2020-06-10", "2020-07-13"),
    c("2020-07-30", "2020-08-25"),
    c("2020-11-24", "2020-12-26")
  ),
  NER = list( # Niger
    c("2020-03-15", "2020-04-12"),
    c("2020-10-22", "2020-12-12")
  ),
  NGA = list( # Nigeria
    c("2020-03-12", "2020-04-02"),
    c("2020-04-08", "2020-05-04"),
    c("2020-05-09", "2020-07-03"),
    c("2020-11-23", "2020-12-20"),
    c("2020-12-29", "2021-01-24")
  ),
  NIC = list( # Nicaragua
    c("2020-05-01", "2020-05-26")
  ),
  NLD = list( # Netherlands
    c("2020-02-20", "2020-03-14"),
    c("2020-03-15", "2020-03-30"),
    c("2020-07-12", "2020-08-17"),
    c("2020-09-04", "2020-09-29"),
    c("2020-09-30", "2020-10-18"),
    c("2020-12-02", "2020-12-26"),
    c("2021-03-09", "2021-04-01")
  ),
  NOR = list( # Norway
    c("2020-02-20", "2020-03-14"),
    c("2020-07-18", "2020-08-12"),
    c("2020-10-18", "2020-11-13"),
    c("2021-02-22", "2021-03-22")
  ),
  NPL = list( # Nepal
    c("2020-04-27", "2020-06-12"),
    c("2020-07-27", "2020-09-01"),
    c("2020-09-28", "2020-10-23"),
    c("2021-04-10", "2021-05-08")
  ),
  NZL = list( # New Zealand
    c("2020-03-10", "2020-03-29"),
    c("2020-07-24", "2020-08-31")
  ),
  OMN = list( # Oman
    c("2020-03-29", "2020-04-18"),
    c("2020-05-03", "2020-05-24"),
    c("2020-05-27", "2020-07-23"),
    c("2020-09-05", "2020-09-23"),
    c("2021-03-06", "2021-04-15")
  ),
  PAK = list( # Pakistan
    c("2020-03-05", "2020-03-20"),
    c("2020-03-22", "2020-05-11"),
    c("2020-05-26", "2020-06-10"),
    c("2020-10-25", "2020-11-28"),
    c("2021-03-01", "2021-03-29")
  ),
  PAN = list( # Panama
    c("2020-03-10", "2020-03-31"),
    c("2020-05-20", "2020-05-31"),
    c("2020-06-16", "2020-07-18"),
    c("2020-11-06", "2021-01-02")
  ),
  PER = list( # Peru
    c("2020-03-04", "2020-04-17"),
    c("2020-04-18", "2020-05-07"),
    c("2020-07-19", "2020-08-20"),
    c("2021-01-04", "2021-02-07")
  ),
  PHL = list( # Philippines
    c("2020-03-03", "2020-04-05"),
    c("2020-05-22", "2020-06-10"),
    c("2020-06-16", "2020-07-13"),
    c("2021-02-28", "2021-03-30")
  ),
  PNG = list( # Papua New Guinea
    c("2020-07-14", "2020-08-16"),
    c("2021-01-27", "2021-04-07")
  ),
  POL = list( # Poland
    c("2020-03-01", "2020-03-28"),
    c("2020-07-13", "2020-08-10"),
    c("2020-09-15", "2020-11-10"),
    c("2021-02-11", "2021-04-04")
  ),
  PRT = list( # Portugal
    c("2020-03-01", "2020-03-29"),
    c("2020-05-09", "2020-06-12"),
    c("2020-08-17", "2020-09-28"),
    c("2020-10-06", "2020-11-17"),
    c("2020-12-23", "2021-01-12")
  ),
  PRY = list( # Paraguay
    c("2020-07-03", "2020-07-19"),
    c("2020-08-03", "2020-08-22"),
    c("2020-11-09", "2020-12-06"),
    c("2021-02-01", "2021-04-01")
  ),
  PSE = list( # Palestine
    c("2020-03-15", "2020-04-07"),
    c("2020-06-10", "2020-06-27"),
    c("2020-08-09", "2020-09-21"),
    c("2020-11-10", "2020-12-05"),
    c("2021-02-02", "2021-03-11")
  ),
  QAT = list( # Qatar
    c("2020-02-25", "2020-03-17"),
    c("2020-03-25", "2020-04-08"),
    c("2020-04-09", "2020-04-28"),
    c("2020-05-03", "2020-05-17"),
    c("2021-01-15", "2021-02-14"),
    c("2021-03-26", "2021-04-04")
  ),
  ROU = list( # Romania
    c("2020-02-28", "2020-03-30"),
    c("2020-06-29", "2020-08-03"),
    c("2020-09-23", "2020-10-25"),
    c("2021-02-15", "2021-03-30")
  ),
  RUS = list( # Russia
    c("2020-03-12", "2020-04-21"),
    c("2020-04-28", "2020-05-07"),
    c("2020-09-21", "2020-10-22"),
    c("2020-10-23", "2020-12-10")
  ),
  RWA = list( # Rwanda
    c("2020-05-13", "2020-06-25"),
    c("2020-08-09", "2020-08-26"),
    c("2020-12-03", "2020-12-17"),
    c("2021-01-01", "2021-01-31")
  ),
  SAU = list( # Saudi Arabia
    c("2020-03-01", "2020-03-28"),
    c("2020-04-03", "2020-04-26"),
    c("2020-04-28", "2020-05-23"),
    c("2020-06-01", "2020-06-12"),
    c("2021-01-09", "2021-02-13"),
    c("2021-03-22", "2021-04-17")
  ),
  SDN = list( # Sudan
    c("2020-04-09", "2020-05-18"),
    c("2020-10-19", "2020-11-27")
  ),
  SEN = list( # Senegal
    c("2020-04-13", "2020-05-01"),
    c("2020-11-18", "2020-12-09"),
    c("2020-12-13", "2021-01-19")
  ),
  SGP = list( # Singapore
    c("2020-03-01", "2020-03-27"),
    c("2020-04-02", "2020-04-25"),
    c("2020-07-07", "2020-07-29"),
    c("2020-11-27", "2021-01-16")
  ),
  SLE = list( # Sierra Leone
    c("2020-04-08", "2020-05-17"),
    c("2020-11-27", "2021-01-10")
  ),
  SLV = list( # El Salvador
    c("2020-03-15", "2020-04-09"),
    c("2020-04-18", "2020-05-16"),
    c("2020-06-04", "2020-07-11"),
    c("2020-11-19", "2021-01-02")
  ),
  SMR = list( # San Marino
    c("2020-02-25", "2020-03-23"),
    c("2020-10-08", "2020-11-13")
  ),
  SOM = list( # Somalia
    c("2020-04-05", "2020-04-20"),
    c("2020-08-15", "2020-10-11"),
    c("2021-01-28", "2021-02-21")
  ),
  SRB = list( # Serbia
    c("2020-03-04", "2020-04-17"),
    c("2020-06-22", "2020-07-04"),
    c("2020-10-19", "2020-11-06"),
    c("2020-11-09", "2020-11-29"),
    c("2021-02-16", "2021-03-21")
  ),
  SSD = list( # South Sudan
    c("2020-04-18", "2020-05-27"),
    c("2021-01-12", "2021-02-24")
  ),
  SUR = list( # Suriname
    c("2020-06-17", "2020-08-17"),
    c("2020-12-05", "2020-12-26"),
    c("2021-03-28", "2021-04-25")
  ),
  SVK = list( # Slovakia
    c("2020-03-03", "2020-03-21"),
    c("2020-09-16", "2020-10-31")
  ),
  SVN = list( # Slovenia
    c("2020-03-02", "2020-03-15"),
    c("2020-06-06", "2020-07-09"),
    c("2020-10-06", "2020-11-01")
  ),
  SWE = list( # Sweden
    c("2020-02-24", "2020-03-10"),
    c("2020-03-16", "2020-04-04"),
    c("2020-05-24", "2020-06-20"),
    c("2020-09-04", "2020-10-16"),
    c("2020-10-18", "2020-11-13"),
    c("2021-03-03", "2021-04-14")
  ),
  SWZ = list( # Eswatini
    c("2020-06-14", "2020-08-02"),
    c("2020-12-06", "2020-12-31")
  ),
  SYC = list( # Seychelles
    c("2020-12-19", "2021-01-10")
  ),
  SYR = list( # Syria
    c("2020-07-31", "2020-08-08"),
    c("2020-10-27", "2020-12-06"),
    c("2020-12-08", "2020-12-16"),
    c("2021-03-14", "2021-03-22")
  ),
  TCD = list( # Chad
    c("2020-04-10", "2020-05-21"),
    c("2020-12-06", "2021-01-15")
  ),
  TGO = list( # Togo
    c("2020-12-04", "2021-04-12")
  ),
  THA = list( # Thailand
    c("2020-03-05", "2020-03-24"),
    c("2020-12-21", "2021-01-07"),
    c("2021-01-21", "2021-02-05"),
    c("2021-04-01", "2021-04-16")
  ),
  TTO = list( # Trinidad and Tobago
    c("2020-07-17", "2020-08-28"),
    c("2021-03-04", "2021-05-10")
  ),
  TUN = list( # Tunisia
    c("2020-03-06", "2020-04-04"),
    c("2020-06-22", "2020-07-16"),
    c("2020-08-07", "2020-08-20"),
    c("2020-08-31", "2020-10-17"),
    c("2020-12-21", "2021-01-25"),
    c("2021-03-24", "2021-04-17")
  ),
  TUR = list( # Turkey
    c("2020-03-11", "2020-03-27"),
    c("2020-03-28", "2020-04-13"),
    c("2020-08-16", "2020-09-10"),
    c("2020-10-14", "2020-10-31"),
    c("2021-02-20", "2021-03-14"),
    c("2021-03-15", "2021-04-18")
  ),
  TWN = list( # Taiwan
    c("2020-03-08", "2020-03-23")
  ),
  UGA = list( # Uganda
    c("2020-04-26", "2020-06-02"),
    c("2020-08-10", "2020-08-21"),
    c("2020-10-19", "2020-11-18")
  ),
  UKR = list( # Ukraine
    c("2020-03-11", "2020-04-04"),
    c("2020-06-02", "2020-06-29"),
    c("2020-07-25", "2020-09-06"),
    c("2020-09-22", "2020-12-06"),
    c("2021-02-16", "2021-04-11")
  ),
  USA = list( # United States
    c("2020-03-01", "2020-03-27"),
    c("2020-06-15", "2020-07-18"),
    c("2020-10-26", "2020-11-21")
  ),
  UZB = list( # Uzbekistan
    c("2020-03-12", "2020-04-17"),
    c("2020-06-09", "2020-07-23"),
    c("2021-03-05", "2021-03-29")
  ),
  VEN = list( # Venezuela
    c("2020-04-27", "2020-05-26"),
    c("2020-06-13", "2020-07-12"),
    c("2020-07-18", "2020-08-19"),
    c("2021-03-16", "2021-04-10")
  ),
  VNM = list( # Vietnam
    c("2020-03-01", "2020-03-31"),
    c("2020-07-06", "2020-08-08"),
    c("2021-01-16", "2021-02-16")
  ),
  YEM = list( # Yemen
    c("2020-04-25", "2020-06-16"),
    c("2021-02-12", "2021-03-22")
  ),
  ZAF = list( # South Africa
    c("2020-03-03", "2020-03-29"),
    c("2020-04-15", "2020-07-20"),
    c("2020-11-29", "2021-01-10")
  ),
  ZMB = list( # Zambia
    c("2020-06-18", "2020-08-02"),
    c("2020-12-25", "2021-01-17")
  ),
  ZWE = list( # Zimbabwe
    c("2020-05-10", "2020-06-01"),
    c("2020-06-27", "2020-08-06"),
    c("2020-11-04", "2020-12-06"),
    c("2020-12-28", "2021-01-08")
  )
)

f <- function(l) {
  se <- matrix(unlist(l), ncol = 2L, byrow = TRUE, dimnames = list(NULL, c("start", "end")))
  se <- as.data.frame(se, stringsAsFactors = FALSE)
  se[] <- lapply(se, as.Date)

  country_iso_alpha3 <- factor(rep.int(names(l), lengths(l)))
  res <- data.frame(country_iso_alpha3, se)

  o <- do.call(order, unname(res))
  res <- res[o, , drop = FALSE]
  row.names(res) <- NULL

  res[["window"]] <- as.factor(unlist(lapply(c(table(country_iso_alpha3)), seq_len)))
  res[c("country_iso_alpha3", "window", "start", "end")]
}
windows <- f(l)
saveRDS(windows, file = path_rds)
str(windows)
davidearn/epigrowthfit documentation built on Feb. 22, 2025, 12:44 p.m.