Nothing
context("Impala aggregate functions")
test_that("median() returns result with expected dimension", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(median_dep_delay = median(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
expect_true(
compare(test_op(tbl(impala, "flights")), c(3, 2))
)
})
test_that("mean() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(mean_dep_delay = mean(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
test_that("n() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
summarise(num_flights = n()) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
test_that("min() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(min_dep_delay = min(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
test_that("max() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(max_dep_delay = max(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
test_that("ndv() returns result with expected dimension", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(approx_num_dest = ndv(dest, na.rm = TRUE)) %>%
collect() %>%
dim()
}
expect_true(
compare(test_op(tbl(impala, "flights")), c(3, 2))
)
})
test_that("sd() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(sd_dep_delay = sd(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
test_that("sum() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(sum_dep_delay = sum(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
test_that("var() returns expected result", {
check_impala()
test_op <- function(x) {
x %>%
group_by(origin) %>%
summarise(var_dep_delay = var(dep_delay, na.rm = TRUE)) %>%
collect() %>%
dim()
}
compare_tbls(list(tbl(impala, "flights"), nycflights13::flights), op = test_op)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.