Code
%>%
BIMTS_CPA left_join(BIMTS_CPA_var$REPORTER, by = "REPORTER") %>%
group_by(REPORTER, Reporter) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - OECD
%>%
BIMTS_CPA left_join(BIMTS_CPA_var$REPORTER, by = "REPORTER") %>%
group_by(REPORTER, Reporter) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
BIMTS_CPA left_join(BIMTS_CPA_var$PARTNER, by = "PARTNER") %>%
group_by(PARTNER, Partner) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
BIMTS_CPA left_join(BIMTS_CPA_var$CPA_VER_2_1, by = "CPA_VER_2_1") %>%
group_by(CPA_VER_2_1, Cpa_ver_2_1) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
BIMTS_CPA left_join(BIMTS_CPA_var$MEASURE, by = "MEASURE") %>%
group_by(MEASURE, Measure) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
BIMTS_CPA group_by(obsTime) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {