Code
%>%
mar_mg_aa_pwhd left_join(direct, by = "direct") %>%
group_by(direct, Direct) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
direct | Direct | Nobs |
---|---|---|
IN | Inwards | 1104 |
OUT | Outwards | 1104 |
TOTAL | Total | 1104 |