tests/testthat/test_bls_api.R

In blscrapeR: An API Wrapper for the Bureau of Labor Statistics (BLS)

library(blscrapeR)
library(jsonlite)
library(httr)
library(testthat)
library(tibble)

seriesid <-  'LAUCN040010000000005'
payload <- list(seriesid = seriesid)
base_url <- "https://api.bls.gov/publicAPI/v1/timeseries/data/"

# Manually construct payload since the BLS formatting is wakey.
payload <- toJSON(payload)
loadparse <- regmatches(payload, regexpr("],", payload), invert = TRUE)
parse1 <- loadparse[[1]][1]
parse2 <- gsub("\\[|\\]", "", loadparse[[1]][2])
payload <- paste(parse1, parse2, sep = "],")

# Here's the actual API call.
jsondat <- content(POST(base_url, body = payload, content_type_json()))

if(length(jsondat$Results) > 0) {
    # Method borrowed from here:
    # https://github.com/fcocquemas/bulast/blob/master/R/bulast.R
    df <- purrr::map_dfr(jsondat$Results$series, function(s) {
        out <- purrr::map_dfr(s$data, function(d) {
            d[["footnotes"]] <- paste(unlist(d[["footnotes"]]), collapse = " ")
            d[["seriesID"]] <- paste(unlist(s[["seriesID"]]), collapse = " ")
            d <- purrr::map(purrr::map(d, unlist), paste, collapse=" ")
        })
    })
    df$value <- as.numeric(as.character(df$value))
    if ("year" %in% colnames(df)){
        df$year <- as.numeric(as.character(df$year))
    }
}


# Check actual fucntion
out <- blscrapeR::bls_api('LAUCN040010000000005')

#testthat::expect_identical(out, df)