> descr(dat, "gender", test_options = c(exact = TRUE)) %>% print()
  Variables F          M          Total      p       Test          CI    CI_name
1  party                                                                        
2    A       12 (60%)   8 (33%)    20 (45%)   0.087   Boschloo's ~  [-0~  CI fo~
3    B       8 (40%)    16 (67%)   24 (55%)                                     

