inst/tests/test-county.R

In trulia/choroplethr: Simplify the Creation of Choropleth Maps in R

context("test county_choropleth")

test_that("default parameters returns ggplot", {
  data(df_pop_county)
  expect_is(county_choropleth(df_pop_county), "ggplot")
})

test_that("setting title returns ggplot", {
  data(df_pop_county)
  expect_is(county_choropleth(df_pop_county, title="test title"), "ggplot")
})

test_that("setting legend returns ggplot", {
  data(df_pop_county)
  expect_is(county_choropleth(df_pop_county, legend="test legend"), "ggplot")
})

test_that("continuous scale returns ggplot", {
  data(df_pop_county)
  expect_is(county_choropleth(df_pop_county, buckets=1), "ggplot")
})

test_that("west coast zoom returns ggplot", {
  data(df_pop_county)
  expect_is(county_choropleth(df_pop_county, zoom=c("california", "oregon", "washington")), "ggplot")
})

test_that("error on invalid zoom", {
  data(df_pop_county)
  expect_error(county_choropleth(df_pop_county, zoom="asdf"))  
})

test_that("less than full counties emits warning", {
  data(df_pop_county)
  df = df_pop_county[df_pop_county$region <= 10000, ]
  expect_warning(county_choropleth(df))  
})

test_that("less than full states works", {
  data(df_pop_county)
  df = df_pop_county[df_pop_county$region <= 10000, ]
  expect_is(suppressWarnings(county_choropleth(df)), "ggplot")  
})