bugfix in ae_table_grade()

DanChaltiel · Jul 31, 2024 · 0bbd5ed · 0bbd5ed
1 parent fa9c499
commit 0bbd5ed
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/ae_table_grade.R b/R/ae_table_grade.R
@@ -377,10 +377,9 @@ ae_table_grade = function(
 
   rex = type %>% paste(collapse="|") %>% paste0("^(", ., ")")
 
-  percent_pattern = if(isTRUE(percent)) "{n} ({scales::percent(n/n_col,1)})" 
+  percent_pattern = if(isTRUE(percent)) "{n} ({scales::percent(n/n_col_na,1)})" 
   else if(percent=="only") "{n/n_col}" else "{n}"
 
-
   rtn = df %>% 
     summarise(