From fa7c252b3ed18c023196c926f4d213c0866d90ca Mon Sep 17 00:00:00 2001
From: Joe <palmer-2@hotmail.co.uk>
Date: Fri, 23 Apr 2021 11:27:19 +0100
Subject: [PATCH] test that level 1 and level 2 regions are not all NA

---
 tests/testthat/custom_tests/test-regional-dataset.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/testthat/custom_tests/test-regional-dataset.R b/tests/testthat/custom_tests/test-regional-dataset.R
index 6ebd9827..821435de 100644
--- a/tests/testthat/custom_tests/test-regional-dataset.R
+++ b/tests/testthat/custom_tests/test-regional-dataset.R
@@ -35,6 +35,10 @@ expect_columns_contain_data <- function(data_name, region) {
   cols <- c("cases", "deaths", "recovered", "test")
   cols2check <- purrr::map(cols, cols_present)
   cols2check <- unlist(cols2check)
+  cols2check <- append(
+    cols2check,
+    region$supported_region_names[[region$level]]
+  )
   purrr::walk(
     cols2check,
     ~ {