tests/testthat/data_requests.R

In houseofcommonslibrary/clcommittees: Tools for downloading and processing data from the UK Parliament's Committees Information System API

### Record and retrieve test data: request functions

# About -----------------------------------------------------------------------

# WARNING: RUNNING THIS FILE WILL REBUILD THE TEST DATA FOR THESE FUNCTIONS
#
# The functions in this file are used to record the output of the api and the
# functions that process that data in order to produce mocks, and to check if
# the expected behaviour of the functions has changed. The file paths are set
# so that you can source this file from within the package project during
# development to generate the test data, and source the test data files from
# within the corresponding tests. Only run this run file when you are ready
# to capture current behaviour.

# Imports ---------------------------------------------------------------------

source("tests/testthat/data.R")

# Fetch test data for request functions ---------------------------------------

fetch_request_data <- function() {

    url <- stringr::str_glue(stringr::str_c(
        API_BASE_URL,
        "Committees?Take={PARAMETER_TAKE_THRESHOLD}",
        "&CommitteeStatus=All"))

    request_get <- httr::GET(url)
    request_output <- request(url)
    get_response_items_output <- get_response_items(request_output)
    request_items_output <- get_response_items_output

    write_data(request_get, "request_get")
    write_data(request_output, "request_output")
    write_data(get_response_items_output, "get_response_items_output")
    write_data(request_items_output, "request_items_output")
}

# Fetch all core test data ----------------------------------------------------

fetch_request_data()
message("API output recorded for requests")