Series Index

library(tidyBdE)
library(tidyverse)

# GDP France
fr <- bde_catalog_search("Francia(.*)PIB")

# Show table on vignette
fr %>%
  select(Numero_secuencial, Descripcion_de_la_serie) %>%
  knitr::kable()

# In this case we want to extract the first serie
# See tidyverse style

fr %>%
  # Select id
  select(Numero_secuencial) %>%
  # of first obs
  slice(1) %>%
  # convert to number
  as.double() %>%
  # And load it
  bde_series_load()
#> # A tibble: 260 × 2
#>    Date       `143057`
#>    <date>        <dbl>
#>  1 1960-03-01     11.3
#>  2 1960-06-01     11.6
#>  3 1960-09-01     11.9
#>  4 1960-12-01     12.1
#>  5 1961-03-01     12.4
#>  6 1961-06-01     12.5
#>  7 1961-09-01     12.8
#>  8 1961-12-01     13.2
#>  9 1962-03-01     13.7
#> 10 1962-06-01     14.1
#> # ℹ 250 more rows

# See the metadata
fr %>%
  # Select id
  select(Numero_secuencial) %>%
  # of first obs
  slice(1) %>%
  # convert to number
  as.double() %>%
  # And load the metadata
  bde_series_load(extract_metadata = TRUE) %>%
  # To table on the vignette
  knitr::kable()