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 .} {