(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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.