fix ae_table_grade grade 5 ordering

fixes #33
Oncostat · Nov 22, 2024 · 2828866 · 2828866
1 parent 0e8bf2a
commit 2828866
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ae_table_grade.R b/R/ae_table_grade.R
@@ -122,8 +122,8 @@ ae_table_grade = function(
                       .default="ERROR"),
       .id = str_remove(.id, "_[^_]*$") %>% factor(levels=variant),
       label = fct_reorder(label, as.numeric(.id)),
-      variable = suppressWarnings(fct_relevel(variable, "Grade = 5", after=4)),
       variable = suppressWarnings(fct_relevel(variable, lab_no_ae, after=0)),
+      variable = suppressWarnings(fct_relevel(variable, "Grade = 5", after=Inf)),
       variable = suppressWarnings(fct_relevel(variable, ~str_subset(.x, "missing"), after=Inf)),
     ) %>%
     arrange(.id, label, variable)