Change date_range for stringency function to using last_day

src/plan.R

@@ -55,10 +55,13 @@ plan <- drake_plan(## raw_data = read_excel(
     ## ),
 
     ## ECDC Covid19 geographic distribution data
-    # last_day = Sys.Date() - 1,
-    last_day = as.Date("2020-07-22"),
+     last_day = Sys.Date() - 1,
+    #last_day = as.Date("2020-07-22"),
     ## string for today
     sdt = format(last_day, "%d %b %Y"),
+    
+    ## date range for lockdown
+    date_range_lock = paste0("2020-01-01/",last_day),
 
     covid = ecdc_covid19(last_day) %>%
         # rm some negative records that are obvious errors
@@ -83,7 +86,7 @@ plan <- drake_plan(## raw_data = read_excel(
     ## This tool aims to track and compare
     ## policy responses around the world, rigorously and consistently.
 
-    lock = stringency(),
+    lock = stringency(date_range_lock),
 
     ## CARTOGRAPHY ---------------------------------------------------