tests/testthat/test-victim.R

In SUN-Wenjun/fbicrime: R wrapper for FBI Crime API

context('test victim')
library(fbicrime)

df_national <- summarize_victim(offense = 'violent-crime', variable = 'race')
df_nonnational <- summarize_victim(offense = 'aggravated-assault', level = 'regions', level_detail = 'Midwest', variable = 'relationship')

test_that('data dimensions correct', {
  expect_equal(ncol(df_national), 5)
  expect_equal(ncol(df_nonnational), 6)
})

test_that('no missing values', {
  expect_identical(df_national, na.omit(df_national))
  expect_identical(df_nonnational, na.omit(df_nonnational))
})

test_that('data types correct', {
  expect_is(df_national,'data.frame')
  expect_is(df_nonnational,'data.frame')
})