Dates of plots in the vignettes are now in English

vignettes/contacts.Rmd

@@ -43,6 +43,8 @@ knitr::knit_hooks$set(
   }
 )
 
+Sys.setlocale("LC_TIME", "C")
+
 ```
 
 ```{r setup, echo=FALSE, message=FALSE}
@@ -176,7 +178,7 @@ The following code generates a plot with the gamma distribution of the illness p
 ```{r visualization of get_infection_date_density, foldcode=TRUE}  
   g <- ggplot() +
 
-    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d-%m-%Y")) +
+    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d %b")) +
     theme(axis.text.x = element_text(angle = 90)) +
     # scale_x_continuous(breaks = x_tick,
     #                    labels = x_label) +

vignettes/contagious_period.Rmd

@@ -43,6 +43,8 @@ knitr::knit_hooks$set(
   }
 )
 
+Sys.setlocale("LC_TIME", "C")
+
 ```
 
 ```{r setup, echo=FALSE, message=FALSE}
@@ -147,7 +149,7 @@ period_95 <- .calculate_qstart_qend(0.95, infectious_df_v1)
 ```{r visualization of get_infection_density, foldcode=TRUE}  
   g <- ggplot() +
 
-    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d-%m-%Y")) +
+    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d %b")) +
     theme(axis.text.x = element_text(angle = 90)) +
     # scale_x_continuous(breaks = x_tick,
     #                    labels = x_label) +

vignettes/future_infections.Rmd

@@ -43,6 +43,8 @@ knitr::knit_hooks$set(
   }
 )
 
+Sys.setlocale("LC_TIME", "C")
+
 ```
 
 ```{r setup, echo=FALSE, message=FALSE}

vignettes/infection_period.Rmd

@@ -43,6 +43,8 @@ knitr::knit_hooks$set(
   }
 )
 
+Sys.setlocale("LC_TIME", "C")
+
 ```
 
 ```{r setup, echo=FALSE, message=FALSE}
@@ -178,7 +180,7 @@ knitr::kable(infec_date_df_v2[100:109,],
 ```{r visualization of get_infection_density, foldcode=TRUE}  
   g <- ggplot() +
 
-    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d-%m-%Y")) +
+    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d %b")) +
     theme(axis.text.x = element_text(angle = 90)) +
     # scale_x_continuous(breaks = x_tick,
     #                    labels = x_label) +
@@ -231,7 +233,7 @@ knitr::kable(infec_date_df_v2[100:109,],
 ```{r visualization of get_misc_infection_density, foldcode=TRUE}  
   g <- ggplot() +
 
-    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d-%m-%Y")) +
+    scale_x_datetime(breaks = scales::date_breaks("1 days"), labels = scales::date_format("%d %b")) +
     theme(axis.text.x = element_text(angle = 90)) +
     # scale_x_continuous(breaks = x_tick,
     #                    labels = x_label) +

vignettes/risk_assessment_group_quarantine.Rmd

@@ -43,6 +43,8 @@ knitr::knit_hooks$set(
   }
 )
 
+Sys.setlocale("LC_TIME", "C")
+
 ```
 
 ```{r setup, echo=FALSE, message=FALSE}