context("agg_data is tested.")
perc <- agg_perc(data = ref_n, groups = "species", out = "test")
test_that("test agg_data with reference data for numbers", {
expect_is(agg_data(data = ref_nums, groups = c("species", "agecl"), fun = sum), "data.frame")
expect_equal(dim(agg_data(data = ref_nums, groups = c("agecl"), fun = mean))[1], 10)
expect_equal(dim(agg_data(data = ref_nums, groups = c("agecl"), fun = sum))[1], 10)
expect_equal(agg_data(data = ref_nums, col = "agecl", groups = "agecl", fun = mean)$atoutput, 1:10)
expect_equal(names(agg_data(data = ref_nums, groups = "species", out = "test", fun = sum)), c("species", "test"))
expect_equal(names(perc), c("species", "polygon", "layer", "time", "atoutput", "test"))
expect_equal(agg_data(perc, col = "test", groups = "species", fun = sum)$atoutput, rep(1, times = 5))
})
test_that("test data grouping", {
expect_is(group_data(ref_nums, groups = c("species", "agecl")), "grouped_df")
})
df <- data.frame(time = rep(1:3, times = 2),
spec = rep(1:2, each = 3),
value = 1:6)
res <- agg_data(data = df, col = "value", groups = "spec", out = "test", fun = sum)
test_that("test data grouping", {
expect_equal(dim(res), c(2, 2))
expect_equal(res$test, c(6, 15))
})
# add commented line
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.