library(EDCimport)
library(flextable)
# tm = read_trialmaster("path/to/file.zip")
tm = edc_example_ae()
load_list(tm)
head(ae)
#> # A tibble: 6 × 6
#> subjid aesoc aegr n_ae sae crfname
#> <int> <chr> <int> <int> <lgl> <chr>
#> 1 1 Nervous system disorders 3 2 FALSE ae
#> 2 1 Injury, poisoning and procedural complicatio… 1 2 FALSE ae
#> 3 2 Hepatobiliary disorders 1 2 TRUE ae
#> 4 2 Injury, poisoning and procedural complicatio… 2 2 FALSE ae
#> 5 3 Blood and lymphatic system disorders 4 3 FALSE ae
#> 6 3 Injury, poisoning and procedural complicatio… 5 3 FALSE ae
head(enrolres)
#> # A tibble: 6 × 3
#> subjid arm crfname
#> <int> <chr> <chr>
#> 1 1 Trt enrolres
#> 2 2 Trt enrolres
#> 3 3 Trt enrolres
#> 4 4 Trt enrolres
#> 5 5 Ctl enrolres
#> 6 6 Ctl enrolres
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.
Macro AE_grades
La macro AE_grades
est traduite en deux fonctions : ae_table_grade_max()
et ae_table_grade_n()
. Ces fonctions retournent 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.
Voir la description du package flextable pour la liste des modificateurs (comme add_footer_lines()
) : documentation.