tests/testthat/tests_subsetting.R

context("Subsetting Tests")

test_that("Entered Data", {
  w.use <- wUseSample
  data.elements <- c("PS.TOPop", "PS.SWPop")
  areas <- "10" # NA uses all areas
  area.column <- "STATECODE"
  w.use.sub <- subset_wuse(w.use, data.elements, area.column, areas)
  
  expect_equal(ncol(w.use.sub), 4)
  expect_equal(nrow(w.use.sub), 18)
  cklist <- c("YEAR",area.column,"PS.TOPop","PS.SWPop")
  expect_equal(names(w.use.sub),cklist)
})

test_that("Subset polygon data", {
  areas <- "Maine"
  area.column <- "STATE_TERR"
  year <- 2010 # 16 counties in Maine present day
  hc.sub <- subset_county_polygons(year, area.column, areas)

  expect_equal(ncol(hc.sub), 17)
  expect_equal(nrow(hc.sub), 16)
  unq.names <- unique(hc.sub$NAME)
  expect_equal(length(unq.names), 16)

  year <- 1850 # 13 counties in Maine in 1850
  hc.sub <- subset_county_polygons(year, area.column, areas)
  
  expect_equal(ncol(hc.sub), 17)
  expect_equal(nrow(hc.sub), 13)
  unq.names <- unique(hc.sub$NAME)
  expect_equal(length(unq.names), 13)
})
USGS-R/AWUDS documentation built on May 9, 2019, 6:05 p.m.