tests/testthat/test-write_dcs.R

In worldbank/pddcs: Prepare data for Data Collection System

bednets_data <- readRDS("../testdata/bednets_data.RDS")
bednets_meta <- readRDS("../testdata/bednets_meta.RDS")

# Tests
test_that("write_dcs() works correctly", {

  # Data format
  tmp <- write_dcs(bednets_data, type = "data", path = tempfile(fileext = ".xlsx"))
  expect_identical(readxl::excel_sheets(tmp), "Sheet1")
  out <- readxl::read_xlsx(tmp)
  expect_identical(out, bednets_data, ignore_attr = TRUE)

  # Metadata format
  tmp <- write_dcs(bednets_meta, type = "meta", path = tempfile(fileext = ".xlsx"))
  expect_identical(readxl::excel_sheets(tmp), "Country-Series-Time_Table")
  out <- readxl::read_xlsx(tmp)
  expect_identical(out, bednets_meta, ignore_attr = TRUE)
})