In groditi/blsR: Make Requests from the Bureau of Labor Statistics API

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

blsR

The goal of blsR is to make it easy to request time series data from the BLS API and turn it into usable tabular data.

Installation

You can install the released version of blsR from CRAN with:

install.packages("blsR")

And the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("groditi/blsR")

Getting Started

blsR provides functions for retrieving and processing data from the BLS API. The functions are divided into 4 categories: query generators, query requests, result processors, and the user-friendly simplified interface. It was designed with a three-step workflow in mind:

• Identify which data you would like to retrieve and create a query.
• Make an http request to execute a query ([bls_request()])
• Transform the response data to fit the user workflow

If the only data needed is periods and values, then the functions get_series_table, get_series_tables, and get_n_series_table are all that a user will need. An API key is not required to use this package but users will be restricted in how many years of data can be retrieved per request, how many series can be included per request, and how many requests can be made in a day. An API Key can be obtained at: https://data.bls.gov/registrationEngine/

Example

This is a basic example which shows you how to retrieve one series as a tibble or retrieve two series as a joined tibble.

Example

To request a single series as a tibble:

``` {r eval=FALSE} library(blsR) uer <- get_series_table('LNS14000000', start_year = 2006, end_year = 2006)

uer:

# A tibble: 12 x 5

year period periodName value footnotes

1 2006 M12 December 4.4

2 2006 M11 November 4.5

3 2006 M10 October 4.4

4 2006 M09 September 4.5

5 2006 M08 August 4.7

6 2006 M07 July 4.7

7 2006 M06 June 4.6

8 2006 M05 May 4.6

9 2006 M04 April 4.7

10 2006 M03 March 4.7

11 2006 M02 February 4.8

12 2006 M01 January 4.7

tidy_periods(uer)

# A tibble: 12 x 4

year month value footnotes

1 2006 1 4.7

2 2006 2 4.8

3 2006 3 4.7

4 2006 4 4.7

5 2006 5 4.6

6 2006 6 4.6

7 2006 7 4.7

8 2006 8 4.7

9 2006 9 4.5

10 2006 10 4.4

11 2006 11 4.5

To request multiple series as one tibble

``` {r eval=FALSE}
get_n_series_table(
  list('LNS14000001', 'LNS14000002'), start_year = 2005, end_year=2006
  )
# # A tibble: 24 x 4
#     year period LNS14000001 LNS14000002
#    <int> <chr>  <chr>       <chr>      
#  1  2006 M12    4.5         4.4        
#  2  2006 M11    4.5         4.5        
#  3  2006 M10    4.4         4.4        
#  4  2006 M09    4.4         4.7        
#  5  2006 M08    4.7         4.6        
#  6  2006 M07    4.7         4.7        
#  7  2006 M06    4.6         4.6        
#  8  2006 M05    4.7         4.5        
#  9  2006 M04    4.7         4.7        
# 10  2006 M03    4.7         4.7        
# # ... with 14 more rows

get_n_series_table(
  list(uer.men ='LNS14000001', uer.women = 'LNS14000002'),
  start_year = 2005, end_year=2006, tidy=TRUE
)

# # A tibble: 24 x 4
#     year month uer.men uer.women
#    <int> <int> <chr>   <chr>    
#  1  2005     1 5.4     5.1      
#  2  2005     2 5.5     5.3      
#  3  2005     3 5.3     5.1      
#  4  2005     4 5.1     5.2      
#  5  2005     5 5.0     5.2      
#  6  2005     6 5.0     5.1      
#  7  2005     7 4.9     5.1      
#  8  2005     8 4.9     4.9      
#  9  2005     9 5.0     5.1      
# 10  2005    10 4.8     5.1      
# # ... with 14 more rows

groditi/blsR documentation built on Oct. 12, 2023, 12:08 a.m.