tests/testthat/test_crime.R

In njtierney/ukpolice: Access UK Police Data

library(ukpolice)
context("Crime")

crime_table_names <- c("category",
                       "persistent_id",
                       "date",
                       "lat",
                       "long",
                       "street_id",
                       "street_name",
                       "context",
                       "id",
                       "location_type",
                       "location_subtype",
                       "outcome_status")

test_crime <- ukp_crime(lat = 52.629729, lng = -1.131592)

test_that("ukp_crime has appropriate names", {
  testthat::expect_is(object = test_crime , class = "tbl_df")
  testthat::expect_named(object = test_crime, expected = crime_table_names)
})

test_date_number <- "2016-03"

test_crime_date <- ukp_crime(lat = 52.629729,
                             lng = -1.131592,
                             date = test_date_number)

test_that("ukp_crime measures date appropriately", {
  testthat::expect_equal(object = test_crime_date$date[1],
                         expected = test_date_number)
})

test_that("ukp_crime returns lat and long that are numeric", {
  testthat::expect_is(object = test_crime_date$long,
                      class = "numeric")
  testthat::expect_is(object = test_crime_date$lat,
                      class = "numeric")
})

# with 3 points
poly_df_3 <- data.frame(lat = c(52.268, 52.794, 52.130),
                       long = c(0.543, 0.238, 0.478))

ukp_data_poly_3 <- ukp_crime_poly(poly_df_3)


test_that("ukp_crime_poly is a tibble", {
  testthat::expect_is(ukp_data_poly_3, "tbl_df")
})

test_that("ukp_crime_poly returns lat and long that are numeric", {
  testthat::expect_is(object = ukp_data_poly_3$long,
                      class = "numeric")
  testthat::expect_is(object = ukp_data_poly_3$lat,
                      class = "numeric")
})

# with 4 points
poly_df_4 <- data.frame(lat = c(52.268, 52.794, 52.130, 52.000),
                       long = c(0.543,  0.238,  0.478,  0.400))

ukp_data_poly_4 <- ukp_crime_poly(poly_df = poly_df_4)


test_that("ukp_crime_poly works for four points", {
  testthat::expect_is(ukp_data_poly_4, "tbl_df")
})