    library(tidyverse)
    library(insee)

    df_idbank_list_selected =
      get_idbank_list("CNT-2014-PIB-EQB-RF") %>% # Gross domestic product balance
      filter(FREQ == "T") %>% #quarter
      add_insee_title() %>% #add titles
      filter(OPERATION == "PIB") %>% #GDP
      filter(NATURE == "TAUX") %>% #rate
      filter(CORRECTION == "CVS-CJO") #SA-WDA, seasonally adjusted, working day adjusted

    idbank = df_idbank_list_selected %>% pull(idbank)

    data = get_insee_idbank(idbank)

    #plot
    ggplot(data, aes(x = DATE, y = OBS_VALUE)) +
      geom_col() +
      ggtitle("French GDP growth rate, quarter-on-quarter, sa-wda") +
      labs(subtitle = sprintf("Last updated : %s", data$TIME_PERIOD[1]))