Nothing
# ------------------------------------------------------------------------------
# phop_index_vec
test_that("phop_index_vec() works", {
expect_identical(phop_index_vec(list(1L, 1L), 1, 1, 1, ~.x + .y), 2L)
})
test_that("phop_index_vec() doesn't retains names of first input (#75)", {
expect_named(phop_index_vec(list(c(x = 1L), c(y = 1L)), 1, 1, 1, ~.x + .y), NULL)
})
test_that("phop_index_vec() can simplify automatically", {
expect_identical(phop_index_vec(list(1, 2), 1, 1, 1, ~.x + .y, .ptype = NULL), 3)
})
test_that("phop_index_vec() errors if it can't simplify", {
fn <- function(x, y) if (x == 1L) {1} else {"hi"}
expect_snapshot({
(expect_error(
phop_index_vec(list(1:2, 1:2), 1:2, 1:2, 1:2, fn, .ptype = NULL),
class = "vctrs_error_incompatible_type"
))
})
})
test_that("completely empty input returns ptype", {
expect_equal(phop_index_vec(list(), integer(), integer(), integer(), ~.x), NULL)
expect_equal(phop_index_vec(list(), integer(), integer(), integer(), ~.x, .ptype = list()), list())
expect_equal(phop_index_vec(list(), integer(), integer(), integer(), ~.x, .ptype = int()), int())
})
test_that("empty `.l` and `.i`, but size `n > 0` `.starts` and `.stops` returns size `n` ptype", {
expect_identical(
phop_index_vec(list(), integer(), 1:2, 2:3, ~2, .ptype = int()),
c(2L, 2L)
)
expect_identical(
phop_index_vec(list(), integer(), 1:2, 2:3, ~2, .ptype = NULL),
c(2, 2)
)
})
test_that("can't access non-existant `.x` with empty `.l` and `.i`, but size `n > 0` `.starts` and `.stops`", {
# Note: Error message seems platform dependent
expect_error(phop_index_vec(list(), integer(), 1:2, 2:3, ~.x, .ptype = int()))
})
# ------------------------------------------------------------------------------
# .ptype
test_that("`.ptype = NULL` validates that element lengths are 1", {
expect_snapshot(error = TRUE, {
phop_index_vec(list(1:2, 1:2), 1:2, 1:2, 1:2, ~if(.x == 1L) {1:2} else {1}, .ptype = NULL)
})
expect_snapshot(error = TRUE, {
phop_index_vec(list(1:2, 1:2), 1:2, 1:2, 1:2, ~if(.x == 1L) {NULL} else {2}, .ptype = NULL)
})
})
test_that("size 0 `.starts` / `.stops` returns size 0 `.ptype`", {
expect_identical(
phop_index_vec(list(1:5), 1:5, integer(), integer(), ~.x, .ptype = NULL),
NULL
)
expect_identical(
phop_index_vec(list(1:5), 1:5, integer(), integer(), ~.x, .ptype = double()),
double()
)
})
test_that("`phop_index_vec()` falls back to `c()` method as required", {
local_c_foobar()
expect_identical(phop_index_vec(list(1:3, 1:3), 1:3, 1:3, 1:3, ~foobar(.x), .ptype = foobar(integer())), foobar(1:3))
expect_condition(phop_index_vec(list(1:3, 1:3), 1:3, 1:3, 1:3, ~foobar(.x), .ptype = foobar(integer())), class = "slider_c_foobar")
expect_identical(phop_index_vec(list(1:3, 1:3), 1:3, 1:3, 1:3, ~foobar(.x)), foobar(1:3))
expect_condition(phop_index_vec(list(1:3, 1:3), 1:3, 1:3, 1:3, ~foobar(.x)), class = "slider_c_foobar")
})
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.