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: 117 × 2
#>    Date       `2563958`
#>    <date>         <dbl>
#>  1 1995-12-01      -5.1
#>  2 1996-03-01      NA  
#>  3 1996-06-01      NA  
#>  4 1996-09-01      NA  
#>  5 1996-12-01      -3.9
#>  6 1997-03-01      NA  
#>  7 1997-06-01      NA  
#>  8 1997-09-01      NA  
#>  9 1997-12-01      -3.6
#> 10 1998-03-01      NA  
#> # ℹ 107 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()