# NOT RUN {
#example 1 : industrial production index on manufacturing and industrial activities
title = get_insee_title("010537900")
# }
# NOT RUN {
#example 2 : automotive industry and overall industrial production
library(tidyverse)
idbank_list = get_idbank_list()
idbank_list_selected =
idbank_list %>%
filter(nomflow == "IPI-2015") %>% #industrial production index dataset
filter(dim1 == "M") %>% #monthly
filter(dim5 == "INDICE") %>% #index
filter(dim8 == "CVS-CJO") %>% #Working day and seasonally adjusted SA-WDA
filter(str_detect(dim4,"^29$|A10-BE")) %>% #automotive industry and overall industrial production
mutate(title = get_insee_title(idbank))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab