Update code series

CITATION.cff

@@ -8,7 +8,7 @@ message: 'To cite package "tidyBdE" in publications use:'
 type: software
 license: GPL-3.0-or-later
 title: 'tidyBdE: Download Data from Bank of Spain'
-version: 0.3.6
+version: 0.3.6.9000
 doi: 10.32614/CRAN.package.tidyBdE
 abstract: Tools to download data series from 'Banco de España' ('BdE') on 'tibble'
   format. 'Banco de España' is the national central bank and, within the framework
@@ -32,7 +32,7 @@ preferred-citation:
     affiliation: rOpenSpain
   doi: 10.32614/CRAN.package.tidyBdE
   year: '2024'
-  version: 0.3.6
+  version: 0.3.6.9000
   url: https://ropenspain.github.io/tidyBdE/
   abstract: Tools to download data series from Banco de España (BdE) on tibble format.
     Banco de España is the national central bank and, within the framework of the

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tidyBdE
 Title: Download Data from Bank of Spain
-Version: 0.3.6
+Version: 0.3.6.9000
 Authors@R: 
     person("Diego", "H. Herrero", , "[email protected]", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0001-8457-4658", affiliation = "rOpenSpain"))

NEWS.md

@@ -1,3 +1,11 @@
+# tidyBdE (development version)
+
+-   Update `bde_ind_unemployment_rate()` since the underlying identifier
+    changed.
+-   `bde_ind_population()` under review, not providing results as of July 2024.
+-   DOI changed to **CRAN** url:
+    <https://doi.org/10.32614/CRAN.package.tidyBdE>.
+
 # tidyBdE 0.3.6
 
 -   Adapt `scale_color_bde_d()` and friends to **ggplot2** 3.5.0. Also expose

R/indicators.R

@@ -45,7 +45,7 @@ bde_ind_gdp_var <- function(series_label = "GDP_YoY", ...) {
 #' @export
 bde_ind_unemployment_rate <-
   function(series_label = "Unemployment_Rate", ...) {
-    seq_num <- 2357793
+    seq_num <- 4635980
 
     econom_ind <-
       bde_series_load(seq_num, series_label = series_label, ...)
@@ -141,13 +141,16 @@ bde_ind_gdp_quarterly <- function(series_label = "GDP_quarterly_value", ...) {
 #'
 #' @export
 bde_ind_population <- function(series_label = "Population_Spain", ...) {
-  seq_num <- 3078287
-
-  econom_ind <-
-    bde_series_load(seq_num, series_label = series_label, ...)
-  econom_ind <- econom_ind[!is.na(econom_ind[[2]]), ]
-
-  return(econom_ind)
+  # seq_num <- 3078287
+  #
+  # econom_ind <-
+  #   bde_series_load(seq_num, series_label = series_label, ...)
+  # econom_ind <- econom_ind[!is.na(econom_ind[[2]]), ]
+  #
+  # return(econom_ind)
+
+  message("Under review")
+  return(NULL)
 }
 
 #' @export

codemeta.json

@@ -8,13 +8,13 @@
   "codeRepository": "https://github.com/rOpenSpain/tidyBdE",
   "issueTracker": "https://github.com/rOpenSpain/tidyBdE/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.3.6",
+  "version": "0.3.6.9000",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
     "url": "https://r-project.org"
   },
-  "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
+  "runtimePlatform": "R version 4.4.1 (2024-06-14)",
   "provider": {
     "@id": "https://cran.r-project.org",
     "@type": "Organization",
@@ -192,7 +192,7 @@
   },
   "applicationCategory": "Macroeconomics",
   "isPartOf": "https://ropenspain.es/",
-  "fileSize": "289.593KB",
+  "fileSize": "285.823KB",
   "citation": [
     {
       "@type": "SoftwareSourceCode",

inst/schemaorg.json

@@ -28,8 +28,8 @@
         "name": "Comprehensive R Archive Network (CRAN)",
         "url": "https://cran.r-project.org"
       },
-      "runtimePlatform": "R version 4.4.1 (2024-06-14 ucrt)",
-      "version": "0.3.6"
+      "runtimePlatform": "R version 4.4.1 (2024-06-14)",
+      "version": "0.3.6.9000"
     },
     {
       "id": "https://doi.org/10.32614/CRAN.package.tidyBdE",

tests/testthat/test-indicators.R

@@ -27,9 +27,6 @@ test_that("Indicators", {
   n7 <- expect_silent(bde_ind_gdp_quarterly())
   expect_true(nrow(n7) > 10)
 
-  n8 <- expect_silent(bde_ind_population())
-  expect_true(nrow(n8) > 10)
-
   n9 <- expect_silent(bde_ind_ibex_daily())
   expect_true(nrow(n9) > 10)
 })

vignettes/articles/Main_Macroeconomic_Series.Rmd

@@ -101,49 +101,6 @@ ggplot(dataset, aes(x = Date, y = data)) +
   theme_tidybde()
 ```
 
-### GDP per capita
-
-```{r echo=FALSE}
-pop <- bde_ind_population(series_label = "pop")
-pib <- bde_ind_gdp_quarterly(series_label = "data")
-
-pib$LastY <- pib$data + lag(pib$data, 1) + lag(pib$data, 2) + lag(pib$data, 3)
-
-pib <- inner_join(pib, pop, by = "Date")
-
-pib <- pib %>% mutate(data = 1000 * LastY / pop)
-
-dataset <- pib %>%
-  select(Date, data) %>%
-  filter(Date >= nd) %>%
-  drop_na()
-
-
-l <- dataset[nrow(dataset), ]
-
-ggplot(dataset, aes(x = Date, y = data)) +
-  geom_line(color = col) +
-  geom_text(
-    data = l,
-    size = 3,
-    aes(label = paste(
-      x = prettyNum(data, big.mark = " "),
-      "€\n", format(Date, "%b-%Y")
-    ))
-  ) +
-  labs(
-    title = "GDP per capita of Spain",
-    subtitle = "€",
-    caption = "Source: BdE"
-  ) +
-  scale_y_continuous(labels = scales::label_number()) +
-  scale_x_date(
-    date_labels = "%b-%Y",
-    breaks = br
-  ) +
-  theme_tidybde()
-```
-
 ## Unemployment Rate
 
 ```{r echo=FALSE}
@@ -230,36 +187,3 @@ ggplot(dataset, aes(x = Date, y = data)) +
   ) +
   theme_tidybde()
 ```
-
-## Population
-
-```{r echo=FALSE}
-dataset <- bde_ind_population(series_label = "data") %>%
-  filter(Date >= nd) %>%
-  drop_na()
-
-
-l <- dataset[nrow(dataset), ]
-
-ggplot(dataset, aes(x = Date, y = data)) +
-  geom_line(color = col) +
-  geom_text(
-    data = l,
-    size = 3,
-    aes(label = paste(
-      x = prettyNum(data, big.mark = " "),
-      "\n", format(Date, "%b-%Y")
-    ))
-  ) +
-  labs(
-    title = "Population of Spain",
-    subtitle = "thousands",
-    caption = "Source: BdE"
-  ) +
-  scale_x_date(
-    date_labels = "%b-%Y",
-    breaks = br
-  ) +
-  scale_y_continuous(labels = scales::label_number()) +
-  theme_tidybde()
-```