Code
load_data("oecd/SNA_TABLE30_var.RData")
SNA_TABLE30 <- read_parquet("SNA_TABLE30.parquet")
nber_recessions <- read_parquet(here::here("data", "us", "nber_recessions.parquet"))
Data - OECD
load_data("oecd/SNA_TABLE30_var.RData")
SNA_TABLE30 <- read_parquet("SNA_TABLE30.parquet")
nber_recessions <- read_parquet(here::here("data", "us", "nber_recessions.parquet"))Last observation: 2017 (N = 7681)
First observation: 1990 (N = 6329)
Last data update: 02 août 2026, 09:09
Last compile: 03 sept. 2026, 00:12
SNA_TABLE30 |>
left_join(SNA_TABLE30_var |> pluck("TRANSACT"), by = c("TRANSACT" = "id")) |>
rename(`TRANSACT Description` = label) |>
left_join(SNA_TABLE30_var |> pluck("MEASURE"), by = c("MEASURE" = "id")) |>
rename(`MEASURE Description` = label) |>
group_by(TRANSACT, `TRANSACT Description`, MEASURE, `MEASURE Description`) |>
summarise(nobs = n()) |>
arrange(-nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}SNA_TABLE30_var$VAR_DESC %>%
{if (is_html_output()) print_table(.) else .}| id | description |
|---|---|
| LOCATION | Country |
| TRANSACT | Transaction |
| PRODUCT | Product |
| MEASURE | Measure |
| TIME | Year |
| OBS_VALUE | Observation Value |
| TIME_FORMAT | Time Format |
| OBS_STATUS | Observation Status |
| UNIT | Unit |
| POWERCODE | Unit multiplier |
| REFERENCEPERIOD | Reference period |
SNA_TABLE30_var$TIME_FORMAT %>%
{if (is_html_output()) print_table(.) else .}| id | label |
|---|---|
| P1Y | Annual |
| P1M | Monthly |
| P3M | Quarterly |
| P6M | Half-yearly |
| P1D | Daily |