Code
%>%
inflation transmute(date = paste0(ANNEE14, "-01-01") %>% as.Date,
cpi = INFLATION %>% gsub(",", "\\.", .) %>% as.numeric) %>%
mutate(inflation = 100*(cpi/lag(cpi)-1)) %>%
print_table_conditional()
Data - INSEE
%>%
inflation transmute(date = paste0(ANNEE14, "-01-01") %>% as.Date,
cpi = INFLATION %>% gsub(",", "\\.", .) %>% as.numeric) %>%
mutate(inflation = 100*(cpi/lag(cpi)-1)) %>%
print_table_conditional()