Code
%>%
MFP_var pluck("VAR_DESC") %>%
if (is_html_output()) print_table(.) else .} {
id | description |
---|---|
LOCATION | Country |
VAR | Variable |
TIME | Time |
OBS_VALUE | Observation Value |
TIME_FORMAT | Time Format |
OBS_STATUS | Observation Status |
Data - OECD
%>%
MFP_var pluck("VAR_DESC") %>%
if (is_html_output()) print_table(.) else .} {
id | description |
---|---|
LOCATION | Country |
VAR | Variable |
TIME | Time |
OBS_VALUE | Observation Value |
TIME_FORMAT | Time Format |
OBS_STATUS | Observation Status |
%>%
MFP left_join(MFP_var$VAR, by = "VAR") %>%
group_by(VAR, Var) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
VAR | Var | Nobs |
---|---|---|
GDPG | Growth of Gross Domestic Product, in per cent | 716 |
COST | Share of labour cost in total factor costs, in per cent | 701 |
CAP | Growth of capital input, in per cent | 698 |
INP | Growth of total factor input, in per cent | 684 |
LAB | Growth of labour input, in per cent | 684 |
MFP | Growth of multi-factor productivity, in per cent | 684 |
%>%
MFP left_join(MFP_var$LOCATION, by = "LOCATION") %>%
group_by(LOCATION, Location) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {