Code
SNA_TABLE12_SNA93 |>
left_join(SNA_TABLE12_SNA93_var$TRANSACT |>
setNames(c("TRANSACT", "Transact")), by = "TRANSACT") |>
left_join(SNA_TABLE12_SNA93_var$SECTOR |>
setNames(c("SECTOR", "Sector")), by = "SECTOR") |>
group_by(TRANSACT, Transact, SECTOR, Sector) |>
summarise(Nobs = n()) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}