From 6cac7e2f4357ce9c41db0e92c12f8bfb4eb6c7a9 Mon Sep 17 00:00:00 2001
From: Michael Chirico <michaelchirico4@gmail.com>
Date: Wed, 13 Sep 2023 23:02:59 -0700
Subject: [PATCH] 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
---
 functions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/functions.R b/functions.R
index b696ded..ef6072a 100644
--- 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) %>%