diff --git a/vignettes/.gitignore b/vignettes/.gitignore
index 097b241..ba7abf3 100644
--- a/vignettes/.gitignore
+++ b/vignettes/.gitignore
@@ -1,2 +1,3 @@
 *.html
 *.R
+*_files
diff --git a/vignettes/adverse_events.Rmd b/vignettes/adverse_events.Rmd
deleted file mode 100644
index 72b80db..0000000
--- a/vignettes/adverse_events.Rmd
+++ /dev/null
@@ -1,147 +0,0 @@
----
-title: "Adverse Events"
-output: rmarkdown::html_vignette
-vignette: >
-  %\VignetteIndexEntry{Adverse Events}
-  %\VignetteEngine{knitr::rmarkdown}
-  %\VignetteEncoding{UTF-8}
----
-
-```{r, include = FALSE}
-knitr::opts_chunk$set(
-  collapse = TRUE,
-  comment = "#>"
-)
-```
-
-On commence par charger la base TrialMaster comme on fait d'habitude. 
-Ici j'utilise la fonction `edc_example_ae()` pour ne pas dépendre de données réelles privées.
-
-```{r setup, message = FALSE}
-library(EDCimport)
-library(tidyverse)
-library(flextable)
-# tm = read_trialmaster("path/to/zip")
-tm = edc_example_ae()
-load_list(tm)
-
-head(ae)
-head(enrolres)
-```
-
-## Macro `AE_grades`
-
-La macro `AE_grades` est traduite en deux fonctions : `ae_table_grade_max()` et `ae_table_grade_n()`. Ces fonctions retourne des objets de classe `crosstable`. 
-Ils ont une méthode `as_flextable` qui les transforme en table HTML de classe `flextable`. 
-
-EDCimport comprend aussi la fonction `ae_plot_grade_max()`
-
-Voir la description du package crosstable pour plus d'informations: [documentation](https://danchaltiel.github.io/crosstable/reference/as_flextable.html).
-Voir la description du package flextable pour la liste des modificateurs (comme `add_footer_lines()`) : [documentation](https://davidgohel.github.io/flextable/reference/index.html).
-
-### Sortie *AE_grades1* : Table des grades maximum par patient
-
-```{r}
-ae_table_grade_max(df_ae=ae, df_enrol=enrolres, arm=NULL) %>% 
-  as_flextable() %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at most one 
-                   AE of given grade")
-```
-
-### Sortie *AE_grades2*: Table des grades maximum par patient stratifié sur le bras
-
-On pourrait retrouver exactement la sortie SAS en mettant `total=FALSE`.
-
-```{r}
-ae_table_grade_max(df_ae=ae, df_enrol=enrolres, arm="arm") %>% 
-  as_flextable() %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at most one AE of given grade")
-```
-
-### Sortie *Bonus*: Graphique des AE maximums
-
-```{r, fig.asp = 0.5, fig.width = 7, out.width = "100%"}
-ae_plot_grade_max(df_ae=ae, df_enrol=enrolres, type = c("stack", "dodge", "fill"))  & labs(fill="Arm")
-```
-
-### Sortie *AE_grades3*: Table de tous les grades pour chaque patient
-
-```{r}
-ae_table_grade_n(df_ae=ae, df_enrol=enrolres, arm=NULL) %>% 
-  as_flextable() %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at least one AE of given grade")
-```
-
-On pourrait retrouver exactement la sortie SAS en mettant `total=FALSE`.
-
-```{r}
-ae_table_grade_n(df_ae=ae, df_enrol=enrolres, arm="arm") %>% 
-  as_flextable() %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at least one AE of given grade")
-```
-
-
-### Sortie *AE_grades4*: Table des grades maximum par patient, filtrée sur les SAE
-
-La fonction ne prend pas en charge les SAE directement, il suffit de filtrer la table AE en amont.
-Pour l'exemple, on va considérer comme SAE les AE de grade 3+.
-
-```{r}
-
-ae %>% 
-  # filter(AESER=="Yes") %>% 
-  filter(aegr>=3) %>% 
-  ae_table_grade_max(df_enrol=enrolres, arm=NULL) %>% 
-  as_flextable() %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at most one SAE of given grade")
-```
-
-
-## Macro `AE_SOC` 
-
-
-La macro `AE_SOC` est traduite en la fonctions : `ae_table_soc()`. Cette fonction retourne des objets de classe `ae_table_soc`. Ils ont également une méthode `as_flextable` qui les transforme en table HTML de classe `flextable`, mais différente de celle de crosstable. 
-
-Voir la description du package flextable pour la liste des modificateurs (comme `add_footer_lines()`) : [documentation](https://davidgohel.github.io/flextable/reference/index.html).
-
-Pour les sorties sur `{officer}`, comme ces tables sont très larges, pensez bien à basculer en format paysage en utilisant `officer::body_end_section_continuous()`, puis `officer::body_end_section_landscape()` pour revenir au format portrait.
-
-### Sortie *AE_SOC1*: Table des grades par soc et termes
-
-On peut ajouter `total=FALSE` pour retirer la colonne "Tot".
-
-```{r}
-ae_table_soc(df_ae=ae, df_enrol=enrolres, term=NULL, arm=NULL, sort_by_ae=FALSE) %>% 
-  as_flextable() %>% 
-  add_footer_lines("In the header, N represents the number of patients.") %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at least one AE of given grade")
-```
-
-### Sortie *AE_SOC2*: Table des grades par soc et termes
-
-```{r}
-##TODO exemple avec des TERMS
-``` 
-
-### Sortie *AE_SOC3*: Table des grades par termes uniquement, filtrée sur les SAE
-
-```{r}
-##TODO ajouter vrais SAE
-```
-
-### Sortie *AE_SOC4*: Table des grades stratifiée sur le bras (sans colonne total)
-
-On peut ajouter `total=FALSE` pour retirer la colonne "Tot" et obtenir la sortie *AE_SOC5*.
-
-```{r}
-ae_table_soc(df_ae=ae, df_enrol=enrolres, term=NULL, arm="arm", sort_by_ae=FALSE) %>% 
-  as_flextable() %>% 
-  add_footer_lines("In the header, N represents the number of patients.") %>% 
-  add_footer_lines("Percentages are given as the proportion of patients presenting at least one AE of given grade")
-```
-
-### Sortie *AE_SOC6*: Table des soc et termes tous grades confondus stratifiée sur le bras
-
-```{r}
-##TODO
-```