Info

source	dataset	.html	.RData
oecd	SNA_TABLE750	2024-09-11	2023-09-27

Data on public debt

source	dataset	.html	.RData
eurostat	ei_mfir_m	2024-09-14	2024-09-14
eurostat	gov_10q_ggdebt	2024-09-14	2024-09-14
fred	r	2024-09-14	2024-09-14
fred	saving	2024-09-14	2024-09-14
gfd	debt	2021-08-22	2021-03-01
imf	FM	2024-06-20	2020-03-13
imf	GGXCNL_G01_GDP_PT	2024-09-09	2024-09-09
imf	GGXONLB_G01_GDP_PT	2024-09-09	2024-09-09
imf	GGXWDN_G01_GDP_PT	2024-06-20	2024-05-06
imf	HPDD	2024-06-20	NA
oecd	QASA_TABLE7PSD	2024-09-15	2024-04-15
wdi	GC.DOD.TOTL.GD.ZS	2023-06-18	2024-09-15
wdi	GC.XPN.INTP.CN	2023-06-18	2024-09-15
wdi	GC.XPN.INTP.RV.ZS	2023-06-18	2024-09-15
wdi	GC.XPN.INTP.ZS	2024-09-15	2024-09-15

LAST_COMPILE

LAST_COMPILE
2024-09-15

Last

obsTime	Nobs
2022	75

LOCATION

Code

SNA_TABLE750 %>%
  left_join(SNA_TABLE750_var$LOCATION, by = "LOCATION") %>%
  group_by(LOCATION, Location) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Location))),
         Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

TRANSACT

Code

SNA_TABLE750 %>%
  left_join(SNA_TABLE750_var$TRANSACT, by = "TRANSACT") %>%
  group_by(TRANSACT, Transact) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

TRANSACT	Transact	Nobs
B1_GE	Gross domestic product (expenditure approach)	2711
SAFLINV	Gross General Government Debt	749

SECTOR

Code

SNA_TABLE750 %>%
  left_join(SNA_TABLE750_var$SECTOR, by = "SECTOR") %>%
  group_by(SECTOR, Sector) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

SECTOR	Sector	Nobs
S1	Total economy	2711
S13	General government	749