tests/testthat/_snaps/slice-chop.md

In vctrs: Vector Helpers

indices are validated

Code
  vec_chop(1, indices = 1)
Condition
  Error:
  ! `indices` must be a list of index values, or `NULL`.

Code
  (expect_error(vec_chop(1, indices = list(1.5)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements.
  x Can't convert from <double> to <integer> due to loss of precision.

Code
  (expect_error(vec_chop(1, indices = list(2)), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements past the end.
  i Location 2 doesn't exist.
  i There is only 1 element.

sizes are validated

Code
  vec_chop("a", sizes = "a")
Condition
  Error:
  ! Can't convert `sizes` <character> to <integer>.

Code
  vec_chop("a", sizes = 2)
Condition
  Error:
  ! `sizes` can't contain sizes larger than 1.

Code
  vec_chop("a", sizes = -1)
Condition
  Error:
  ! `sizes` can't contain negative sizes.

Code
  vec_chop("a", sizes = NA_integer_)
Condition
  Error:
  ! `sizes` can't contain missing values.

Code
  vec_chop("a", sizes = c(1, 1))
Condition
  Error:
  ! `sizes` must sum to size 1, not size 2.

can't use both indices and sizes

Code
  vec_chop(1, indices = list(1), sizes = 1)
Condition
  Error:
  ! Can't supply both `indices` and `sizes`.

vec_chop(x, indices) backwards compatible behavior works

Code
  vec_chop(1:2, 1)
Condition
  Error:
  ! `indices` must be a list of index values, or `NULL`.

Code
  vec_chop(1, list(1), sizes = 1)
Condition
  Error:
  ! Can't supply both `indices` and `sizes`.

Code
  vec_chop(1, list(1), 2)
Condition
  Error in `vec_chop()`:
  ! `...` must be empty.
  x Problematic arguments:
  * ..1 = list(1)
  * ..2 = 2
  i Did you forget to name an argument?

Code
  vec_chop(1, list(1), indices = list(1))
Condition
  Error in `vec_chop()`:
  ! `...` must be empty.
  x Problematic argument:
  * ..1 = list(1)
  i Did you forget to name an argument?

x must be a list

Code
  list_unchop(1, indices = list(1))
Condition
  Error in `list_unchop()`:
  ! `x` must be a list, not the number 1.

Code
  list_unchop(1, indices = list(1), error_call = call("foo"), error_arg = "arg")
Condition
  Error in `foo()`:
  ! `arg` must be a list, not the number 1.

Code
  list_unchop(data.frame(x = 1), indices = list(1))
Condition
  Error in `list_unchop()`:
  ! `x` must be a list, not a <data.frame> object.

indices must be a list

Code
  list_unchop(list(1), indices = 1)
Condition
  Error in `list_unchop()`:
  ! `indices` must be a list, not the number 1.

Code
  list_unchop(list(1), indices = 1, error_call = call("foo"))
Condition
  Error in `foo()`:
  ! `indices` must be a list, not the number 1.

Code
  list_unchop(list(1), indices = data.frame(x = 1))
Condition
  Error in `list_unchop()`:
  ! `indices` must be a list, not a <data.frame> object.

unchopping recycles elements of x to the size of the index

Code
  (expect_error(list_unchop(x, indices = indices)))
Output
  <error/vctrs_error_incompatible_size>
  Error in `list_unchop()`:
  ! Can't recycle `x[[1]]` (size 2) to size 3.
Code
  (expect_error(list_unchop(x, indices = indices, error_call = call("foo"),
  error_arg = "arg")))
Output
  <error/vctrs_error_incompatible_size>
  Error in `foo()`:
  ! Can't recycle `arg[[1]]` (size 2) to size 3.

unchopping takes the common type

Code
  (expect_error(list_unchop(x, indices = indices), class = "vctrs_error_incompatible_type")
  )
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x[[1]]` <double> and `x[[2]]` <character>.
Code
  (expect_error(list_unchop(x, indices = indices, error_call = call("foo"),
  error_arg = "arg"), class = "vctrs_error_incompatible_type"))
Output
  <error/vctrs_error_ptype2>
  Error in `foo()`:
  ! Can't combine `arg[[1]]` <double> and `arg[[2]]` <character>.

common type failure uses positional errors

Code
  x <- list(1, a = "x", 2)
  (expect_error(list_unchop(x)))
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x[[1]]` <double> and `x$a` <character>.
Code
  (expect_error(list_unchop(x, indices = list(2, 1, 3))))
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x[[1]]` <double> and `x$a` <character>.
Code
  (expect_error(list_unchop(x, ptype = double())))
Output
  <error/vctrs_error_cast>
  Error in `list_unchop()`:
  ! Can't convert `x$a` <character> to <double>.
Code
  (expect_error(list_unchop(x, indices = list(2, 1, 3), ptype = double())))
Output
  <error/vctrs_error_cast>
  Error in `list_unchop()`:
  ! Can't convert `x$a` <character> to <double>.
Code
  y <- list(1, a = 2.5)
  (expect_error(list_unchop(y, ptype = integer())))
Output
  <error/vctrs_error_cast_lossy>
  Error in `list_unchop()`:
  ! Can't convert from `x$a` <double> to <integer> due to loss of precision.
  * Locations: 1
Code
  (expect_error(list_unchop(y, indices = list(2, 1), ptype = integer())))
Output
  <error/vctrs_error_cast_lossy>
  Error in `list_unchop()`:
  ! Can't convert from `x$a` <double> to <integer> due to loss of precision.
  * Locations: 1

can specify a ptype to override common type

Code
  (expect_error(list_unchop(x, indices = indices, ptype = integer())))
Output
  <error/vctrs_error_cast_lossy>
  Error in `list_unchop()`:
  ! Can't convert from `x[[1]]` <double> to <integer> due to loss of precision.
  * Locations: 1
Code
  (expect_error(list_unchop(x, indices = indices, ptype = integer(), error_call = call(
    "foo"), error_arg = "arg")))
Output
  <error/vctrs_error_cast_lossy>
  Error in `foo()`:
  ! Can't convert from `arg[[1]]` <double> to <integer> due to loss of precision.
  * Locations: 1

list_unchop() can repair names quietly

Code
  res <- list_unchop(vec_chop(x, indices = indices), indices = indices,
  name_repair = "unique_quiet")

Code
  res <- list_unchop(vec_chop(x, indices = indices), indices = indices,
  name_repair = "universal_quiet")

list_unchop() errors on unsupported location values

Code
  (expect_error(list_unchop(list(1, 2), indices = list(c(1, 2), 0)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements.
  x Subscript can't contain `0` values.
  i It has a `0` value at location 1.
Code
  (expect_error(list_unchop(list(1), indices = list(-1)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements.
  x Subscript can't contain negative locations.

list_unchop() fails with complex foreign S3 classes

Code
  x <- structure(foobar(1), attr_foo = "foo")
  y <- structure(foobar(2), attr_bar = "bar")
  (expect_error(list_unchop(list(x, y)), class = "vctrs_error_incompatible_type"))
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x[[1]]` <vctrs_foobar> and `x[[2]]` <vctrs_foobar>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
Code
  (expect_error(list_unchop(list(x, y), error_call = call("foo"), error_arg = "arg"),
  class = "vctrs_error_incompatible_type"))
Output
  <error/vctrs_error_ptype2>
  Error in `foo()`:
  ! Can't combine `arg[[1]]` <vctrs_foobar> and `arg[[2]]` <vctrs_foobar>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.

list_unchop() fails with complex foreign S4 classes

Code
  joe <- .Counts(c(1L, 2L), name = "Joe")
  jane <- .Counts(3L, name = "Jane")
  (expect_error(list_unchop(list(joe, jane)), class = "vctrs_error_incompatible_type")
  )
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x[[1]]` <vctrs_Counts> and `x[[2]]` <vctrs_Counts>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.
Code
  (expect_error(list_unchop(list(joe, jane), error_call = call("foo"), error_arg = "arg"),
  class = "vctrs_error_incompatible_type"))
Output
  <error/vctrs_error_ptype2>
  Error in `foo()`:
  ! Can't combine `arg[[1]]` <vctrs_Counts> and `arg[[2]]` <vctrs_Counts>.
  x Some attributes are incompatible.
  i The author of the class should implement vctrs methods.
  i See <https://vctrs.r-lib.org/reference/faq-error-incompatible-attributes.html>.

list_unchop() falls back to c() if S3 method is available

Code
  (expect_error(list_unchop(list(foobar(1), foobar(2)), indices = list(c(1, 3),
  integer())), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements past the end.
  i Location 3 doesn't exist.
  i There are only 2 elements.

Code
  x <- list(foobar(1:2))
  indices <- list(1:3)
  (expect_error(list_unchop(x, indices = indices)))
Output
  <error/vctrs_error_incompatible_size>
  Error in `list_unchop()`:
  ! Can't recycle `x[[1]]` (size 2) to size 3.
Code
  (expect_error(list_unchop(x, indices = indices, error_arg = "arg", error_call = call(
    "foo"))))
Output
  <error/vctrs_error_incompatible_size>
  Error in `foo()`:
  ! Can't recycle `arg[[1]]` (size 2) to size 3.

list_unchop() falls back for S4 classes with a registered c() method

Code
  (expect_error(list_unchop(list(joe, 1, jane), indices = list(c(1, 2), 3, 4)),
  class = "vctrs_error_incompatible_type"))
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x[[1]]` <vctrs_Counts> and `x[[2]]` <double>.

list_unchop() fallback doesn't support name_spec or ptype

Code
  foo <- structure(foobar(1), foo = "foo")
  bar <- structure(foobar(2), bar = "bar")
  (expect_error(with_c_foobar(list_unchop(list(foo, bar), name_spec = "{outer}_{inner}")),
  "name specification"))
Output
  <error/rlang_error>
  Error in `list_unchop()`:
  ! Can't use a name specification with non-vctrs types.
  vctrs methods must be implemented for class `vctrs_foobar`.
  See <https://vctrs.r-lib.org/articles/s3-vector.html>.
Code
  (expect_error(with_c_foobar(list_unchop(list(foo, bar), name_spec = "{outer}_{inner}",
  error_call = call("foo"))), "name specification"))
Output
  <error/rlang_error>
  Error in `foo()`:
  ! Can't use a name specification with non-vctrs types.
  vctrs methods must be implemented for class `vctrs_foobar`.
  See <https://vctrs.r-lib.org/articles/s3-vector.html>.
Code
  x <- list(foobar(1))
  (expect_error(with_c_foobar(list_unchop(x, ptype = "")), class = "vctrs_error_incompatible_type")
  )
Output
  <error/vctrs_error_cast>
  Error in `list_unchop()`:
  ! Can't convert `x[[1]]` <vctrs_foobar> to <character>.

list_unchop() does not support non-numeric S3 indices

Code
  (expect_error(list_unchop(list(1), indices = list(factor("x"))), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements.
  x Subscript must be numeric, not the string "x".
Code
  (expect_error(list_unchop(list(1), indices = list(foobar(1L))), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements.
  x Subscript must be numeric, not a <vctrs_foobar> object.

can ignore names in list_unchop() by providing a zap() name-spec (#232)

Code
  (expect_error(list_unchop(list(a = c(b = 1:2)))))
Output
  <error/rlang_error>
  Error in `list_unchop()`:
  ! Can't merge the outer name `a` with a vector of length > 1.
  Please supply a `.name_spec` specification.
Code
  (expect_error(list_unchop(list(a = c(b = 1:2)), error_call = call("foo"))))
Output
  <error/rlang_error>
  Error in `list_unchop()`:
  ! Can't merge the outer name `a` with a vector of length > 1.
  Please supply a `.name_spec` specification.

Code
  x <- list(a = c(b = letters), b = 3L)
  (expect_error(list_unchop(x, name_spec = zap()), class = "vctrs_error_incompatible_type")
  )
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x$a` <character> and `x$b` <integer>.
Code
  x <- list(a = c(foo = 1:2), b = c(bar = ""))
  (expect_error(list_unchop(x, indices = list(2:1, 3), name_spec = zap()), class = "vctrs_error_incompatible_type")
  )
Output
  <error/vctrs_error_ptype2>
  Error in `list_unchop()`:
  ! Can't combine `x$a` <integer> and `x$b` <character>.

vctrs documentation built on Oct. 13, 2023, 1:05 a.m.