tests/testthat/validate.R

In eliseuberoi/clcontributions: Download data on Members' activities in Parliament from parliamentary search

### Manage test data for validation

# Constants -------------------------------------------------------------------

READ_TEST_DATA_DIR <- file.path("tests", "testthat", "data")
WRITE_TEST_DATA_DIR <- file.path("tests", "testthat", "data")

# Read and write data ---------------------------------------------------------

#' Read a file from the data directory
#'
#' @keywords internal

read <- function(filename) {
  readRDS(file.path(READ_TEST_DATA_DIR,
                    stringr::str_glue("{filename}.RData")))
}

#' Write a tibble to the data directory
#'
#' @keywords internal

write <- function(df, filename) {
  saveRDS(df, file.path(WRITE_TEST_DATA_DIR,
                        stringr::str_glue("{filename}.RData")))
}

# Comparison function ---------------------------------------------------------

#' Compare two dataframes on structure and contents of selected columns
#'
#' @keywords internal

compare_obs_exp <- function(obs, exp, cols, sort_col) {

  obs <- obs %>% dplyr::arrange(.data[[sort_col]])
  exp <- exp %>% dplyr::arrange(.data[[sort_col]])

  expect_true(all(cols %in% colnames(exp)))
  expect_equal(nrow(obs), nrow(exp))
  expect_equal(ncol(obs), ncol(exp))
  expect_equal(colnames(obs), colnames(exp))

  for (col in cols) {
    expect_equal(obs[[col]], exp[[col]])
  }
}