Code
<- `CNA-2014-PIB` %>%
gdp %>%
year_to_date filter(OPERATION == "PIB",
%in% c("EUR2014", "EUROS_COURANTS")) %>%
UNIT_MEASURE select(date, UNIT_MEASURE, OBS_VALUE) %>%
mutate(OBS_VALUE = (OBS_VALUE %>% as.numeric)/1000,
UNIT_MEASURE = paste0("PIB_", UNIT_MEASURE)) %>%
spread(UNIT_MEASURE, OBS_VALUE)
%>%
gdp if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {