Update code series for gdp quarterly

rOpenSpain · Nov 20, 2024 · 159acc6 · 159acc6
1 parent 56c5414
commit 159acc6
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: tidyBdE
 Title: Download Data from Bank of Spain
-Version: 0.3.7
+Version: 0.3.7.9000
 Authors@R: 
     person("Diego", "H. Herrero", , "[email protected]", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0001-8457-4658", affiliation = "rOpenSpain"))

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# tidyBdE (development version)
+
+-   Update `bde_ind_gdp_quarterly()` since the underlying identifier changed.
+
 # tidyBdE 0.3.7
 
 -   Update `bde_ind_unemployment_rate()` and `bde_ind_population()` since the

diff --git a/R/indicators.R b/R/indicators.R
@@ -121,7 +121,7 @@ bde_ind_ibex_daily <- function(series_label = "IBEX_index_day", ...) {
 #'
 #' @export
 bde_ind_gdp_quarterly <- function(series_label = "GDP_quarterly_value", ...) {
-  seq_num <- 3777060
+  seq_num <- 2325812
 
   econom_ind <- bde_series_load(seq_num, series_label = series_label, ...)
   econom_ind <- econom_ind[!is.na(econom_ind[[2]]), ]

diff --git a/vignettes/articles/Main_Macroeconomic_Series.Rmd b/vignettes/articles/Main_Macroeconomic_Series.Rmd
@@ -58,7 +58,6 @@ l <- dataset[nrow(dataset), ]
 
 ggplot(dataset, aes(x = Date, y = data)) +
   geom_bar(fill = col, stat = "identity") +
-  coord_cartesian(ylim = c(800, 1400) * 1000) +
   scale_y_continuous(labels = scales::label_number()) +
   labs(
     title = "GDP of Spain",