tests/testthat/test_HUCTS_aggregator.R

context("Test HUC Time Series Aggregator")

test_that("test package functions", {
  load(system.file("extdata","HUCTS_aggregator_test.rda",package="HUCAgg"))
  outData2<-HUCTS_aggregator(upstream_size,fromHUC,huc12_areaDF,huc12agg_areaDF,dataF)
  expect_equal(outData,outData2)
})
jread-usgs/HUCAgg documentation built on May 20, 2019, 10:45 a.m.