tests/testthat/test-tidy-correct_data_types.R

In IsaacVerm/find.apartment.analysis: Analyse Immoweb data to find a new appartment to rent.

context("correct_data_types")

listings <- read_raw_listings() %>%
  extract_digit_variables %>%
  extract_postcode %>%
  correct_data_types

test_that("some variables are numeric", {
  numeric_variables <- c("construction_year","floors", "habitable_area", "rent", "charges", "energy_consumption")

  nr_of_numeric_variables <- listings %>%
    select(one_of(numeric_variables)) %>%
    summarise_all(typeof) %>%
    gather %>%
    pull(value) %>%
    table

  expect_equal(first(nr_of_numeric_variables), length(numeric_variables))
})

test_that("current_state and postcode are factors", {
  expect_is(listings$current_state, "factor")
  expect_is(listings$postcode, "factor")
})

test_that("availability_date is a date", {
  expect_is(listings$availability_date, "Date")
})