Nothing
context("expected errors")
test_that("error when using unsupported window function median()", {
check_impala()
test_op <- function(x) {
x %>% group_by(playerid) %>% mutate(median(g)) %>% collect()
}
expect_error(
test_op(tbl(impala, in_schema("lahman", "batting")))
)
})
test_that("error when using unsupported window function n_distinct()", {
check_impala()
test_op <- function(x) {
x %>% group_by(playerid) %>% mutate(n_distinct(g)) %>% collect()
}
expect_error(
test_op(tbl(impala, in_schema("lahman", "batting")))
)
})
test_that("error when using unsupported window function ndv()", {
check_impala()
test_op <- function(x) {
x %>% group_by(playerid) %>% mutate(ndv(g)) %>% collect()
}
expect_error(
test_op(tbl(impala, in_schema("lahman", "batting"))),
regexp = "not.supported"
)
})
test_that("error when using unsupported window function sd()", {
check_impala()
test_op <- function(x) {
x %>% group_by(playerid) %>% mutate(sd(g)) %>% collect()
}
expect_error(
test_op(tbl(impala, in_schema("lahman", "batting"))),
regexp = "not.supported"
)
})
test_that("error when using unsupported window function var()", {
check_impala()
test_op <- function(x) {
x %>% group_by(playerid) %>% mutate(var(g)) %>% collect()
}
expect_error(
test_op(tbl(impala, in_schema("lahman", "batting"))),
regexp = "not.supported"
)
})
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.