Update functions.R

`%Y` is incorrect when paired with `%V`. See for more context: https://bugs.r-project.org/attachment.cgi?id=3252&action=diff
fbranda · Sep 14, 2023 · 6cac7e2 · 6cac7e2
1 parent 0deca18
commit 6cac7e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/functions.R b/functions.R
@@ -89,7 +89,7 @@ makePlotCovid <- function(death_web, cases_web, ita_web, title, mypalette) {
 
 	data_web<-getDataFromJH(death_web, cases_web)
 	cases_ita<-getSingleCountryData(data_web, "Italy", "JH")
-    cases_ita$year_week<-strftime(cases_ita$date, format = "%Y-%V")
+    cases_ita$year_week<-strftime(cases_ita$date, format = "%G-%V")
 
 	cases_ita.agg<-cases_ita %>%
 		  group_by(year_week) %>%