Code
%>%
BOP left_join(BOP_ITEM, by = "BOP_ITEM") %>%
group_by(BOP_ITEM, Bop_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - ECB
%>%
BOP left_join(BOP_ITEM, by = "BOP_ITEM") %>%
group_by(BOP_ITEM, Bop_item) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
BOP left_join(DATA_TYPE_BOP, by = "DATA_TYPE_BOP") %>%
group_by(DATA_TYPE_BOP, Data_type_bop) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
BOP left_join(REF_AREA, by = "REF_AREA") %>%
group_by(REF_AREA, Ref_area) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {