Code
NATIONAL_NC8PAYSE %>%
left_join(NC8, by = "NC8") %>%
group_by(NC8, Nc8) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}Data - Douanes
NATIONAL_NC8PAYSE %>%
left_join(NC8, by = "NC8") %>%
group_by(NC8, Nc8) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}NATIONAL_NC8PAYSE %>%
left_join(NC8, by = "NC8") %>%
left_join(A129, by = "A129") %>%
group_by(A129, a129, NC8, Nc8) %>%
summarise(Nobs = n()) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}