Central Government Debt

Data - OECD

Author

Info

source	dataset	.html	.RData
oecd	GOV_DEBT	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-11	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-14	2024-09-15

LAST_COMPILE

LAST_COMPILE
2024-09-15

Last

obsTime	Nobs
2010	4238

DVAR

Code

GOV_DEBT %>%
  left_join(GOV_DEBT_var$DVAR, by = "DVAR") %>%
  group_by(DVAR, Dvar) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

LOCATION

Code

GOV_DEBT %>%
  left_join(GOV_DEBT_var$COU, by = "COU") %>%
  group_by(COU, Cou) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         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 .}

Biggest Debt in $

Code

GOV_DEBT %>%
  filter(DVAR == "3",
         UNIT == "USD") %>%
  left_join(GOV_DEBT_var$COU, by = "COU") %>%
  group_by(COU, Cou) %>%
  summarise(year1 = first(obsTime),
            value1 = first(obsValue),
            year2 = last(obsTime),
            value2 = last(obsValue)) %>%
  arrange(-value2) %>%
  mutate_at(vars(value1, value2), funs(paste0("$ ", round(./1000), " Tn"))) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Cou))),
         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 .}