tests/testthat/test_validation.R

In williamrohdemadsen/dev-public-opinion: Estimates public opinion in developing countries using social media data

context("Validation functions")

# Set up
source("R/validation.R")
load("data/formatted_data.RData")

test_that("Election regions can be found in GADM regions", {

  expect_equal(tweets_sf$region_1 %>% .[!is.na(.)] %>% unique() %in% elex_master$region_1 %>% all(),
               TRUE)

})