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()