Option to present logicals / dummies with percent instead of n for both levels about finalfit HOT 2 CLOSED

explanatory = c("age", "nodes", "age.factor", "sex.factor", "obstruct.factor", "perfor.factor")
dependent = 'mort_5yr'

colon_s %>%
	summary_factorlist(dependent, explanatory, column = TRUE) %>% 
	dplyr::mutate(label = ifelse(label == "", NA, label)) %>% 
	tidyr::fill(label) %>%
	dplyr::group_by(label) %>% 
	dplyr::filter(levels %in% c("Mean (SD)", "Median (IQR)") | row_number() != 1) %>% 
	dplyr::ungroup() %>% 
	dplyr::mutate_at(-c(1, 2), ~ stringr::str_extract(., "(?<=\\().+?(?=\\))")) %>% 
	rm_duplicate_labels() %>% 
	data.frame()

explanatory = c("age", "age.factor", "sex.factor", "obstruct.factor", "perfor.factor")
dependent = 'mort_5yr'
colon_s %>%
	summary_factorlist(dependent, explanatory)
         label      levels       Alive        Died
1  Age (years)   Mean (SD) 59.8 (11.4) 59.9 (12.5)
2          Age   <40 years    31 (6.1)    36 (8.9)
3              40-59 years  208 (40.7)  131 (32.4)
4                60+ years  272 (53.2)  237 (58.7)
9          Sex      Female  243 (47.6)  194 (48.0)
10                    Male  268 (52.4)  210 (52.0)
5  Obstruction          No  408 (82.1)  312 (78.6)
6                      Yes   89 (17.9)   85 (21.4)
7  Perforation          No  497 (97.3)  391 (96.8)
8                      Yes    14 (2.7)    13 (3.2)

colon_s %>%
	summary_factorlist(dependent, explanatory) %>% 
	ff_remove_ref() %>% 
	ff_percent_only()

        label      levels       Alive        Died
1 Age (years)   Mean (SD) 59.8 (11.4) 59.9 (12.5)
2         Age   <40 years         6.1         8.9
3             40-59 years        40.7        32.4
4               60+ years        53.2        58.7
5         Sex        Male        52.4        52.0
6 Obstruction         Yes        17.9        21.4
7 Perforation         Yes         2.7         3.2