Data on Greece’s macroeconomy

Data

Info

dataset .html .qmd
greece [2024-12-22] https://fgee
macro [2024-12-22] https://fgee
macro-france [2024-12-22] https://fgee

Data on Greece

`greece` %>%
  mutate(Title = read_lines(paste0("~/iCloud/website/data/", source, "/",dataset, ".qmd"), skip = 1, n_max = 1) %>% gsub("title: ", "", .) %>% gsub("\"", "", .)) %>%
  mutate(RData = as.Date(file.info(paste0("~/iCloud/website/data/", source, "/", dataset, ".RData"))$mtime),
         html = as.Date(file.info(paste0("~/iCloud/website/data/", source, "/", dataset, ".html"))$mtime)) %>%
  mutate(html = paste0("[", html, "](https://fgeerolf.com/data/", source, "/", dataset, '.html)')) %>%
  print_table_conditional()
source dataset Title RData html
oecd QNA Quarterly National Accounts 2024-12-22 [2024-06-06]
wdi NY.GDP.PCAP.PP.CD GDP per capita, PPP (current international D) 2024-12-22 [2024-12-22]

GDP Horse Races

# cd ~/iCloud/website/data/wdi; /usr/local/bin/Rscript --vanilla _dl_one_value.R NY.GDP.PCAP.PP.CD
# cd ~/iCloud/website/data/wdi; /usr/local/bin/Rscript --vanilla _dl_one_value.R NY.GDP.PCAP.CD
# cd ~/iCloud/website/data/wdi; /usr/local/bin/R -e 'quarto::quarto_render("NY.GDP.PCAP.PP.CD.qmd")'
# cd ~/iCloud/website/data/wdi; /usr/local/bin/R -e 'quarto::quarto_render("index.qmd")'
# cd ~/iCloud/website/data/oecd; /usr/local/bin/R -f QNA_9.R
# cd ~/iCloud/website/data/oecd; /usr/local/bin/R -e 'quarto::quarto_render("QNA_live.qmd")'
# cd ~/iCloud/website/data/oecd; /usr/local/bin/R -e 'quarto::quarto_render("QNA.qmd")'
# cd ~/iCloud/website/data/oecd; /usr/local/bin/R -f QNA_9.R
# cd ~/iCloud/website/data/oecd; /usr/local/bin/R -e 'quarto::quarto_render("QNA_live.qmd")'
# sh ~/iCloud/website/website_short.sh

tribble(~source, ~ dataset,
        "wdi", "NY.GDP.PCAP.PP.CD",
        "oecd", "QNA",
        "eurostat", "tec00114") %>%
  mutate(type = map(source, ~ tibble(type = c(".RData", ".html", ".qmd")))) %>%
  unnest %>%
  mutate(date = paste0("~/iCloud/website/data/", source, "/", dataset, type) %>% file.info %>% pluck("mtime") %>% as.Date()) %>%
  spread(type, date) %>%
  mutate(`.html` = paste0("[", `.html`, "](https://fgeerolf.com/data/", source, "/", dataset, '.html)')) %>%
  print_table_conditional()
source dataset .html .qmd .RData
eurostat tec00114 [2024-11-22] https://fgee olf.com/data
oecd QNA [2024-06-06] https://fgee olf.com/data
wdi NY.GDP.PCAP.PP.CD [2024-12-22] https://fgee olf.com/data

World

France, Germany, Greece, United States

i_g("data/oecd/QNA_live_files/figure-html/GDP-per-capita-USA-FRA-GRC-DEU-1999-2021-1.png")

Greece

i_g("data/oecd/QNA_live_files/figure-html/GDP-per-capita-USA-FRA-GRC-DEU-1999-2021-base-2001-1.png")

Europe

Greece, Poland, Hungary

ig_d("eurostat", "tec00114", "EL-PL-HU")

Poland, Hungary, Greece, Germany, France, Italy, Spain, Netherlands

ig_d("eurostat", "tec00114", "FR-DE-IT-ES-EL-PL-HU")