v2026.5.13

Author: benzipperer

.claude/rules/r_targets.md

@@ -8,7 +8,20 @@ If the general targets scaffolding (`_targets.R`, etc.) does not exist, create
 
 ## Development workflow
 
-Re-run the targets pipeline after any changes: `Rscript -e 'targets::tar_make()'`. 
+### After any edit to pipeline code
+
+An edit to `_targets.R`, `packages.R`, or any function in `R/` is **not complete** until you have run `Rscript -e 'targets::tar_make()'` and observed it finish without error. This applies regardless of how small the change appears, including:
+
+- Renaming a variable or argument
+- Changing a default value
+- Reformatting or moving code between files
+- Edits you believe are "obviously correct"
+
+If a full `tar_make()` is too expensive (e.g. hits external APIs), scope it with `tar_make(names = c(...))` to the affected targets, but still run it. Never substitute reasoning ("the change is trivial") for execution.
+
+If you didn't run it, say so explicitly in your summary: *"I did not run `tar_make()` because …"* — don't let the omission go unmentioned.
+
+### Inspecting targets
 
 To inspect targets interactively or in ad hoc scripts, first call `targets::tar_load_globals()` to load all packages and functions, then use `tar_load()` or `tar_read()` to access built targets.
 

.github/workflows/R-CMD-check.yaml

@@ -0,0 +1,46 @@
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+
+name: R-CMD-check.yaml
+
+permissions: read-all
+
+jobs:
+  R-CMD-check:
+    runs-on: ${{ matrix.config.os }}
+
+    name: ${{ matrix.config.os }} (${{ matrix.config.r }})
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - {os: ubuntu-latest, r: 'release'}
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      R_KEEP_PKG_SOURCE: yes
+
+    steps:
+      - uses: actions/checkout@v6
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          r-version: ${{ matrix.config.r }}
+          http-user-agent: ${{ matrix.config.http-user-agent }}
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::rcmdcheck
+          needs: check
+
+      - uses: r-lib/actions/check-r-package@v2
+        with:
+          upload-snapshots: true
+          build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'

.github/workflows/README.yaml

@@ -0,0 +1,35 @@
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+
+name: README.yaml
+
+permissions: read-all
+
+jobs:
+  README:
+    runs-on: ubuntu-latest
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+
+    steps:
+      - uses: actions/checkout@v6
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::devtools, local::.
+          needs: readme
+
+      - name: Rebuild README.md
+        run: Rscript -e 'devtools::build_readme()'
+
+      - name: Check README.md is up to date
+        run: git diff --exit-code -- README.md

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: realtalk
 Type: Package
 Title: Price index data for the US economy
-Version: 2026.4.26
+Version: 2026.5.13
 Authors@R: c(
     person("Ben", "Zipperer", , "bzipperer@epi.org", role = c("aut", "cre")),
     person("Economic Policy Institute", role = c("cph", "fnd"))
@@ -16,3 +16,7 @@ RoxygenNote: 7.3.3
 Roxygen: list(markdown = TRUE)
 URL: https://economic.github.io/realtalk/
 Config/Needs/website: economic/epitemplate
+Suggests: 
+    epidatatools,
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3

NEWS.md

@@ -1,3 +1,7 @@
+## Version 2026.5.13
+* update CPI-based data through April 2026
+* update PCE through March 2026
+
 ## Version 2026.4.26
 * ensure monthly minimum wage example data is full-year
 

README.Rmd

@@ -23,6 +23,7 @@ knitr::opts_chunk$set(
 # realtalk <a href="https://economic.github.io/realtalk/"><img src="man/figures/logo.png" align="right" width="120" /></a>
 
 <!-- badges: start -->
+[![R-CMD-check](https://github.com/Economic/realtalk/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/Economic/realtalk/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
 realtalk makes it easy to use common US price indexes in R.
@@ -102,6 +103,24 @@ get_price_index("PCE", "monthly", "SA")
 ```
 
 ## Installation
+Install realtalk from r-universe:
+
+``` r
+install.packages(
+  "realtalk",
+  repos = c("https://economic.r-universe.dev", getOption("repos"))
+)
+```
+
+If you add the EPI r-universe repository to your `.Rprofile` with
 ``` r
-install.packages('realtalk', repos = c('https://economic.r-universe.dev'))
+# Example .Rprofile
+options(repos = c(
+  EPI = "https://economic.r-universe.dev",
+  getOption("repos")
+))
 ```
+then you can simply
+``` r
+install.packages("realtalk")
+```

README.md

@@ -4,6 +4,7 @@
 
 <!-- badges: start -->
 
+[![R-CMD-check](https://github.com/Economic/realtalk/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/Economic/realtalk/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
 realtalk makes it easy to use common US price indexes in R.
@@ -43,35 +44,35 @@ available_price_indexes
 #>    index_name        frequency seasonal min_date max_date package_data_name     
 #>    <chr>             <chr>     <chr>    <chr>    <chr>    <chr>                 
 #>  1 C-CPI-U           annual    <NA>     2000     2025     c_cpi_u_annual        
-#>  2 C-CPI-U           monthly   NSA      Dec 1999 Mar 2026 c_cpi_u_monthly_nsa   
+#>  2 C-CPI-U           monthly   NSA      Dec 1999 Apr 2026 c_cpi_u_monthly_nsa   
 #>  3 C-CPI-U           quarterly NSA      2000q1   2026q1   c_cpi_u_quarterly_nsa 
 #>  4 C-CPI-U, extended annual    <NA>     1937     2025     c_cpi_u_extended_annu…
-#>  5 C-CPI-U, extended monthly   NSA      Jan 1937 Mar 2026 c_cpi_u_extended_mont…
-#>  6 C-CPI-U, extended monthly   SA       Jan 1947 Mar 2026 c_cpi_u_extended_mont…
+#>  5 C-CPI-U, extended monthly   NSA      Jan 1937 Apr 2026 c_cpi_u_extended_mont…
+#>  6 C-CPI-U, extended monthly   SA       Jan 1947 Apr 2026 c_cpi_u_extended_mont…
 #>  7 C-CPI-U, extended quarterly NSA      1937q1   2026q1   c_cpi_u_extended_quar…
 #>  8 C-CPI-U, extended quarterly SA       1947q1   2026q1   c_cpi_u_extended_quar…
 #>  9 CPI-U             annual    <NA>     1937     2025     cpi_u_annual          
-#> 10 CPI-U             monthly   NSA      Jan 1937 Mar 2026 cpi_u_monthly_nsa     
-#> 11 CPI-U             monthly   SA       Jan 1947 Mar 2026 cpi_u_monthly_sa      
+#> 10 CPI-U             monthly   NSA      Jan 1937 Apr 2026 cpi_u_monthly_nsa     
+#> 11 CPI-U             monthly   SA       Jan 1947 Apr 2026 cpi_u_monthly_sa      
 #> 12 CPI-U             quarterly NSA      1937q1   2026q1   cpi_u_quarterly_nsa   
 #> 13 CPI-U             quarterly SA       1947q1   2026q1   cpi_u_quarterly_sa    
 #> 14 CPI-U-RS          annual    <NA>     1978     2025     cpi_u_rs_annual       
 #> 15 CPI-U-RS          monthly   NSA      Dec 1977 Dec 2025 cpi_u_rs_monthly_nsa  
 #> 16 CPI-U-X1          annual    <NA>     1967     1982     cpi_u_x1_annual       
 #> 17 CPI-U-X1          monthly   NSA      Jan 1967 Dec 1982 cpi_u_x1_monthly_nsa  
 #> 18 PCE               annual    <NA>     1929     2025     pce_annual            
-#> 19 PCE               monthly   SA       Jan 1959 Feb 2026 pce_monthly_sa        
-#> 20 PCE               quarterly SA       1947q1   2025q4   pce_quarterly_sa
+#> 19 PCE               monthly   SA       Jan 1959 Mar 2026 pce_monthly_sa        
+#> 20 PCE               quarterly SA       1947q1   2026q1   pce_quarterly_sa
 ```
 
 The `package_data_name` column contains the internal name of each
 dataset:
 
 ``` r
 pce_monthly_sa
-#> # A tibble: 806 × 3
+#> # A tibble: 807 × 3
 #>     year month   pce
-#>    <dbl> <dbl> <dbl>
+#>    <int> <int> <dbl>
 #>  1  1959     1  15.2
 #>  2  1959     2  15.2
 #>  3  1959     3  15.2
@@ -82,16 +83,16 @@ pce_monthly_sa
 #>  8  1959     8  15.3
 #>  9  1959     9  15.4
 #> 10  1959    10  15.4
-#> # ℹ 796 more rows
+#> # ℹ 797 more rows
 ```
 
 You can also use `get_price_index()`:
 
 ``` r
 get_price_index("PCE", "monthly", "SA")
-#> # A tibble: 806 × 3
+#> # A tibble: 807 × 3
 #>     year month   pce
-#>    <dbl> <dbl> <dbl>
+#>    <int> <int> <dbl>
 #>  1  1959     1  15.2
 #>  2  1959     2  15.2
 #>  3  1959     3  15.2
@@ -102,11 +103,32 @@ get_price_index("PCE", "monthly", "SA")
 #>  8  1959     8  15.3
 #>  9  1959     9  15.4
 #> 10  1959    10  15.4
-#> # ℹ 796 more rows
+#> # ℹ 797 more rows
 ```
 
 ## Installation
 
+Install realtalk from r-universe:
+
+``` r
+install.packages(
+  "realtalk",
+  repos = c("https://economic.r-universe.dev", getOption("repos"))
+)
+```
+
+If you add the EPI r-universe repository to your `.Rprofile` with
+
+``` r
+# Example .Rprofile
+options(repos = c(
+  EPI = "https://economic.r-universe.dev",
+  getOption("repos")
+))
+```
+
+then you can simply
+
 ``` r
-install.packages('realtalk', repos = c('https://economic.r-universe.dev'))
+install.packages("realtalk")
 ```

data-raw/R/clean.R

@@ -1,11 +1,11 @@
-clean_bls_monthly <- function(csv, col_name) {
-  read_csv(csv, show_col_types = FALSE) |>
+clean_bls_monthly <- function(data, col_name) {
+  data |>
     select(year, month, !!col_name := value) |>
     arrange(year, month)
 }
 
-clean_c_cpi_u <- function(csv, known_missing) {
-  clean_bls_monthly(csv, "c_cpi_u") |>
+clean_c_cpi_u <- function(data, known_missing) {
+  clean_bls_monthly(data, "c_cpi_u") |>
     add_missing_month_rows(c_cpi_u, known_missing)
 }
 
@@ -62,15 +62,3 @@ clean_cpi_u_rs <- function(csv, known_missing = NULL) {
     select(year, month, cpi_u_rs) |>
     arrange(year, month)
 }
-
-clean_pce <- function(csv) {
-  read_csv(csv, show_col_types = FALSE)
-}
-
-clean_pce_quarterly <- function(csv) {
-  read_csv(csv, show_col_types = FALSE)
-}
-
-clean_pce_annual <- function(csv) {
-  read_csv(csv, show_col_types = FALSE)
-}

data-raw/R/fetchers.R

@@ -1,46 +1,39 @@
-fetch_bls_series <- function(series_id, file_path, start_year, end_year) {
+fetch_bls_series <- function(
+  series_id,
+  start_year,
+  end_year = year(Sys.Date())
+) {
   get_bls(series_id, start = start_year, end = end_year) |>
     select(year, month, value) |>
-    assert_rows(col_concat, is_uniq, year, month) |>
-    write_csv(file_path)
-  file_path
+    assert_rows(col_concat, is_uniq, year, month)
 }
 
 fetch_cpi_u_nsa <- function() {
-  fetch_bls_series("CUUR0000SA0", "data-raw/raw/cpi_u_nsa.csv", 1937, 2026)
+  fetch_bls_series("CUUR0000SA0", 1937)
 }
 
 fetch_cpi_u_sa <- function() {
-  fetch_bls_series("CUSR0000SA0", "data-raw/raw/cpi_u_sa.csv", 1947, 2026)
+  fetch_bls_series("CUSR0000SA0", 1947)
 }
 
 fetch_c_cpi_u <- function() {
-  fetch_bls_series("SUUR0000SA0", "data-raw/raw/c_cpi_u_nsa.csv", 1999, 2026)
+  fetch_bls_series("SUUR0000SA0", 1999)
 }
 
 fetch_pce_monthly_sa <- function() {
-  file_path <- "data-raw/raw/pce_monthly_sa.csv"
   get_bea_nipa("T20804", frequency = "month", years = "ALL") |>
     filter(line_number == 1) |>
-    select(year, month, pce = value) |>
-    write_csv(file_path)
-  file_path
+    select(year, month, pce = value)
 }
 
 fetch_pce_quarterly_sa <- function() {
-  file_path <- "data-raw/raw/pce_quarterly_sa.csv"
   get_bea_nipa("T20304", frequency = "quarter", years = "ALL") |>
     filter(line_number == 1) |>
-    select(year, quarter, pce = value) |>
-    write_csv(file_path)
-  file_path
+    select(year, quarter, pce = value)
 }
 
 fetch_pce_annual <- function() {
-  file_path <- "data-raw/raw/pce_annual.csv"
   get_bea_nipa("T20304", frequency = "year", years = "ALL") |>
     filter(line_number == 1) |>
-    select(year, pce = value) |>
-    write_csv(file_path)
-  file_path
+    select(year, pce = value)
 }