# \donttest{
#example 1 : industrial production index on manufacturing and industrial activities
title = get_insee_title("010537900")
#example 2 : automotive industry and overall industrial production
library(magrittr)
library(dplyr)
library(stringr)
idbank_list_selected =
get_idbank_list("IPI-2015") %>% #industrial production index dataset
filter(FREQ == "M") %>% #monthly
filter(NATURE == "INDICE") %>% #index
filter(CORRECTION == "CVS-CJO") %>% #Working day and seasonally adjusted SA-WDA
filter(str_detect(NAF2,"^29$|A10-BE")) %>% #automotive industry and overall industrial production
mutate(title = get_insee_title(idbank))
# }
Run the code above in your browser using DataLab