From 7c19215657817b7c5216568b9c637ad4d022c29c Mon Sep 17 00:00:00 2001
From: Amelie Lucker <amelie.lucker@itwm.fraunhofer.de>
Date: Thu, 19 May 2022 10:51:47 +0200
Subject: [PATCH] Dates of plots in the vignettes are now in English
---
vignettes/contacts.Rmd | 4 +++-
vignettes/contagious_period.Rmd | 4 +++-
vignettes/future_infections.Rmd | 2 ++
vignettes/infection_period.Rmd | 6 ++++--
vignettes/risk_assessment_group_quarantine.Rmd | 2 ++
5 files changed, 14 insertions(+), 4 deletions(-)
diff --git a/vignettes/contacts.Rmd b/vignettes/contacts.Rmd
index 1f9a707..a540c83 100644
--- a/vignettes/contacts.Rmd
+++ b/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) +
diff --git a/vignettes/contagious_period.Rmd b/vignettes/contagious_period.Rmd
index e52c1a8..2464022 100644
--- a/vignettes/contagious_period.Rmd
+++ b/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) +
diff --git a/vignettes/future_infections.Rmd b/vignettes/future_infections.Rmd
index 4d298af..09fc0ab 100644
--- a/vignettes/future_infections.Rmd
+++ b/vignettes/future_infections.Rmd
@@ -43,6 +43,8 @@ knitr::knit_hooks$set(
}
)
+Sys.setlocale("LC_TIME", "C")
+
```
```{r setup, echo=FALSE, message=FALSE}
diff --git a/vignettes/infection_period.Rmd b/vignettes/infection_period.Rmd
index 5a008f6..b9a74d8 100644
--- a/vignettes/infection_period.Rmd
+++ b/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) +
diff --git a/vignettes/risk_assessment_group_quarantine.Rmd b/vignettes/risk_assessment_group_quarantine.Rmd
index df0155e..15af706 100644
--- a/vignettes/risk_assessment_group_quarantine.Rmd
+++ b/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}
--
GitLab