Code
load_data("oecd/SNA_TABLE710_var.RData")
load_data("oecd/SNA_TABLE710.RData")
Data - OECD
load_data("oecd/SNA_TABLE710_var.RData")
load_data("oecd/SNA_TABLE710.RData")
%>%
SNA_TABLE710 left_join(SNA_TABLE710_var %>% pluck("TRANSACT"), by = c("TRANSACT" = "id")) %>%
rename(`TRANSACT Description` = label) %>%
group_by(TRANSACT, `TRANSACT Description`, SECTOR, MEASURE) %>%
summarise(nobs = n()) %>%
arrange(-nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
$VAR_DESC %>%
SNA_TABLE710_varif (is_html_output()) print_table(.) else .} {
id | description |
---|---|
LOCATION | Country |
TRANSACT | Transaction |
SECTOR | Sector |
MEASURE | Measure |
TIME | Year |
OBS_VALUE | Observation Value |
TIME_FORMAT | Time Format |
OBS_STATUS | Observation Status |
UNIT | Unit |
POWERCODE | Unit multiplier |
REFERENCEPERIOD | Reference period |
$TRANSACT %>%
SNA_TABLE710_varif (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
$SECTOR %>%
SNA_TABLE710_varif (is_html_output()) print_table(.) else .} {
id | label |
---|---|
S1_S2 | Total economy and rest of the world |
S1 | Total economy |
S11 | Non-financial corporations |
S12 | Financial corporations |
S121_S122 | Central bank and other depository corporations |
S121 | Central bank |
S122 | Other depository corporations |
S123 | Other financial intermediaries |
S124 | Financial auxiliaries |
S125 | Insurance corporations and pension funds |
S13 | General government |
S1311 | Central government |
S1312 | State government |
S1313 | Local government |
S1314 | Social security funds |
S14_S15 | Households and non-profit institutions serving households |
S14 | Households |
S15 | Non-profit institutions serving households |
SN | Not sectorized |
S2 | Rest of the world |
$MEASURE %>%
SNA_TABLE710_varif (is_html_output()) print_table(.) else .} {
id | label |
---|---|
C | National currency, current prices |
CXCE | US $, current prices, current exchange rates, end of period |