report_html.Rmd

---
output: html_document
params:
  set_title: NA
  set_date: NA
  set_author1: NA
  set_author2: NA
  typing_method: NA
  table: NA
  move_plot: NA
  network_plot: NA
  epiplot_version: NA
  comments: NA
  date_min: NA
  date_max: NA
  genotype: NA
  species: NA
  workdir: NA
title: "`r params$set_title`"
date: "`r params$set_date`"
author: "`r params$set_author1`<br>`r params$set_author2`"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(message = FALSE, warning = FALSE)
options(knitr.kable.NA = '')
```

```{r echo=F, out.width="200px"}
knitr::include_graphics(paste0(params$workdir, "/www/Epiplot_logo.png"))
```

Ce rapport a été généré avec les données suivantes:

-   Nombre de patients: `r nrow(params$table)`
-   Période: `r params$date_min` au `r params$date_max`
-   Organisme: `r params$species`
-   Méthode de typage: `r params$typing_method`
-   Génotype: `r params$genotype`

# Commentaires

`r params$comments`

\newpage

# Table des données
```{r echo=F}
sum_table <- params$table
colnames(sum_table) <- gsub("_", " ", colnames(sum_table))
knitr::kable(sum_table, 
             align = "c",
             digits = 1,
             caption = "Résumé des séjours de chaque patient à l'hôpital.")
```

\newpage

# Mouvements des patients à l'hôpital
```{r echo=F, out.width = "100%", fig.cap="Mouvements des patients à l'hôpital. Les mouvements sont représentés par des barres indiquant la durée de séjour de chaque patient dans une unité. Les différentes unités sont distinguées par un code couleur. Pour chaque patient, les prélèvements positifs et négatifs sont marqués respectivement par un losange rouge et un rond vert."}
params$move_plot
```

\newpage

# Analyse en réseau des mouvements
```{r echo=F, out.width = "100%", fig.cap="Réseau montrant les périodes communes d'hospitalisation dans les mêmes unités de soins. Chaque patient est représenté par un cercle, et les liens entre les cercles indiquent le nombre de jours passés par ces patients dans la même unité au même moment."}
params$network_plot
```
  
Epiplot version `r params$epiplot_version`