tests/testthat/_snaps/subscript-loc.md

In r-lib/vctrs: Vector Helpers

vec_as_location2() requires integer or character inputs

Code
  (expect_error(vec_as_location2(TRUE, 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `TRUE`.
  x `TRUE` must be numeric or character, not `TRUE`.
Code
  (expect_error(vec_as_location2(mtcars, 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `mtcars`.
  x `mtcars` must be numeric or character, not a <data.frame> object.
Code
  (expect_error(vec_as_location2(env(), 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `env()`.
  x `env()` must be numeric or character, not an environment.
Code
  (expect_error(vec_as_location2(foobar(), 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `foobar()`.
  x `foobar()` must be numeric or character, not a <vctrs_foobar> object.
Code
  (expect_error(vec_as_location2(2.5, 10L), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `2.5`.
  x Can't convert from `2.5` <double> to <integer> due to loss of precision.
Code
  (expect_error(vec_as_location2(Inf, 10L), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `Inf`.
  x Can't convert from `Inf` <double> to <integer> due to loss of precision.
Code
  (expect_error(vec_as_location2(-Inf, 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `-Inf`.
  x Can't convert from `-Inf` <double> to <integer> due to loss of precision.
Code
  # Idem with custom `arg`
  (expect_error(vec_as_location2(foobar(), 10L, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x `foo` must be numeric or character, not a <vctrs_foobar> object.
Code
  (expect_error(vec_as_location2(2.5, 3L, arg = "foo", call = call("my_function")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Can't convert from `foo` <double> to <integer> due to loss of precision.
Code
  (expect_error(with_tibble_rows(vec_as_location2(TRUE)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't remove row with `foo(bar)`.
  x `foo(bar)` must be numeric or character, not `TRUE`.

vec_as_location() requires integer, character, or logical inputs

Code
  (expect_error(vec_as_location(mtcars, 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `mtcars`.
  x `mtcars` must be logical, numeric, or character, not a <data.frame> object.
Code
  (expect_error(vec_as_location(env(), 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `env()`.
  x `env()` must be logical, numeric, or character, not an environment.
Code
  (expect_error(vec_as_location(foobar(), 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `foobar()`.
  x `foobar()` must be logical, numeric, or character, not a <vctrs_foobar> object.
Code
  (expect_error(vec_as_location(2.5, 10L), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `2.5`.
  x Can't convert from `2.5` <double> to <integer> due to loss of precision.
Code
  (expect_error(vec_as_location(list(), 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `list()`.
  x `list()` must be logical, numeric, or character, not an empty list.
Code
  (expect_error(vec_as_location(function() NULL, 10L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `function() NULL`.
  x `function() NULL` must be logical, numeric, or character, not a function.
Code
  (expect_error(vec_as_location(Sys.Date(), 3L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `Sys.Date()`.
  x `Sys.Date()` must be logical, numeric, or character, not a <Date> object.
Code
  # Idem with custom `arg`
  (expect_error(vec_as_location(env(), 10L, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x `foo` must be logical, numeric, or character, not an environment.
Code
  (expect_error(vec_as_location(foobar(), 10L, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x `foo` must be logical, numeric, or character, not a <vctrs_foobar> object.
Code
  (expect_error(vec_as_location(2.5, 3L, arg = "foo", call = call("my_function")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x Can't convert from `foo` <double> to <integer> due to loss of precision.

vec_as_location() and variants check for OOB elements (#1605)

Code
  # Numeric indexing
  (expect_error(vec_as_location(10L, 2L), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements past the end.
  i Location 10 doesn't exist.
  i There are only 2 elements.
Code
  (expect_error(vec_as_location(-10L, 2L), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't negate elements past the end.
  i Location 10 doesn't exist.
  i There are only 2 elements.
Code
  (expect_error(vec_as_location2(10L, 2L), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't extract elements past the end.
  i Location 10 doesn't exist.
  i There are only 2 elements.
Code
  # Character indexing
  (expect_error(vec_as_location("foo", 1L, names = "bar"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements that don't exist.
  x Element `foo` doesn't exist.
Code
  (expect_error(vec_as_location2("foo", 1L, names = "bar"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't extract elements that don't exist.
  x Element `foo` doesn't exist.
Code
  (expect_error(vec_as_location2("foo", 1L, names = "bar", call = call("baz")),
  class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `baz()`:
  ! Can't extract elements that don't exist.
  x Element `foo` doesn't exist.

vec_as_location2() requires length 1 inputs

Code
  (expect_error(vec_as_location2(1:2, 2L), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `1:2`.
  x Subscript `1:2` must be size 1, not 2.
Code
  (expect_error(vec_as_location2(c("foo", "bar"), 2L, c("foo", "bar")), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `c("foo", "bar")`.
  x Subscript `c("foo", "bar")` must be size 1, not 2.
Code
  # Idem with custom `arg`
  (expect_error(vec_as_location2(1:2, 2L, arg = "foo", call = call("my_function")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be size 1, not 2.
Code
  (expect_error(vec_as_location2(mtcars, 10L, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x `foo` must be numeric or character, not a <data.frame> object.
Code
  (expect_error(vec_as_location2(1:2, 2L, arg = "foo", call = call("my_function")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be size 1, not 2.

vec_as_location2() requires positive integers

Code
  (expect_error(vec_as_location2(0, 2L), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `0`.
  x Subscript `0` must be a positive location, not 0.
Code
  (expect_error(vec_as_location2(-1, 2L), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `-1`.
  x Subscript `-1` must be a positive location, not -1.
Code
  # Idem with custom `arg`
  (expect_error(vec_as_location2(0, 2L, arg = "foo", call = call("my_function")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be a positive location, not 0.

vec_as_location2() fails with NA

Code
  (expect_error(vec_as_location2(na_int, 2L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `na_int`.
  x Subscript `na_int` must be a location, not an integer `NA`.
Code
  (expect_error(vec_as_location2(na_chr, 1L, names = "foo"), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't extract element with `na_chr`.
  x Subscript `na_chr` must be a location, not a character `NA`.
Code
  # Idem with custom `arg`
  (expect_error(vec_as_location2(na_int, 2L, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be a location, not an integer `NA`.

num_as_location() optionally forbids negative indices

Code
  (expect_error(num_as_location(dbl(1, -1), 2L, negative = "error"), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `dbl(1, -1)`.
  x Subscript `dbl(1, -1)` can't contain negative locations.

num_as_location() optionally forbids zero indices

Code
  (expect_error(num_as_location(0L, 1L, zero = "error"), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `0L`.
  x Subscript `0L` can't contain `0` values.
  i It has a `0` value at location 1.
Code
  (expect_error(num_as_location(c(0, 0, 0, 0, 0, 0), 1, zero = "error"), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `c(0, 0, 0, 0, 0, 0)`.
  x Subscript `c(0, 0, 0, 0, 0, 0)` can't contain `0` values.
  i It has 6 `0` values at locations 1, 2, 3, 4, 5, etc.

vec_as_location() checks for mix of negative and missing locations

Code
  (expect_error(vec_as_location(-c(1L, NA), 30), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `-c(1L, NA)`.
  x Negative locations can't have missing values.
  i Subscript `-c(1L, NA)` has a missing value at location 2.
Code
  (expect_error(vec_as_location(-c(1L, rep(NA, 10)), 30), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `-c(1L, rep(NA, 10))`.
  x Negative locations can't have missing values.
  i Subscript `-c(1L, rep(NA, 10))` has 10 missing values at locations 2, 3, 4, 5, 6, etc.

vec_as_location() checks for mix of negative and positive locations

Code
  (expect_error(vec_as_location(c(-1L, 1L), 30), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `c(-1L, 1L)`.
  x Negative and positive locations can't be mixed.
  i Subscript `c(-1L, 1L)` has a positive value at location 2.
Code
  (expect_error(vec_as_location(c(-1L, rep(1L, 10)), 30), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `c(-1L, rep(1L, 10))`.
  x Negative and positive locations can't be mixed.
  i Subscript `c(-1L, rep(1L, 10))` has 10 positive values at locations 2, 3, 4, 5, 6, etc.

logical subscripts must match size of indexed vector

Code
  (expect_error(vec_as_location(c(TRUE, FALSE), 3), class = "vctrs_error_subscript_size")
  )
Output
  <error/vctrs_error_subscript_size>
  Error:
  ! Can't subset elements with `c(TRUE, FALSE)`.
  x Logical subscript `c(TRUE, FALSE)` must be size 1 or 3, not 2.

character subscripts require named vectors

Code
  (expect_error(vec_as_location(letters[1], 3), "unnamed vector"))
Output
  <error/rlang_error>
  Error in `vec_as_location()`:
  ! Can't use character names to index an unnamed vector.

can optionally extend beyond the end

Code
  (expect_error(num_as_location(3, 1, oob = "extend"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 1.
  x Subscript `3` contains non-consecutive location 3.
Code
  (expect_error(num_as_location(c(1, 3), 1, oob = "extend"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 1.
  x Subscript `c(1, 3)` contains non-consecutive location 3.
Code
  (expect_error(num_as_location(c(1:5, 7), 3, oob = "extend"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 3.
  x Subscript `c(1:5, 7)` contains non-consecutive locations 4 and 7.
Code
  (expect_error(num_as_location(c(1:5, 7, 1), 3, oob = "extend"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 3.
  x Subscript `c(1:5, 7, 1)` contains non-consecutive locations 4 and 7.
Code
  (expect_error(class = "vctrs_error_subscript_oob", num_as_location(c(1:5, 7, 1,
  10), 3, oob = "extend")))
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 3.
  x Subscript `c(1:5, 7, 1, 10)` contains non-consecutive locations 4, 7, and 10.

num_as_location() errors when inverting oob negatives unless oob = 'remove' (#1630)

Code
  num_as_location(-4, 3, oob = "error", negative = "invert")
Condition
  Error:
  ! Can't negate elements past the end.
  i Location 4 doesn't exist.
  i There are only 3 elements.

Code
  num_as_location(c(-4, 4, 5), 3, oob = "extend", negative = "invert")
Condition
  Error:
  ! Can't negate elements past the end.
  i Location 4 doesn't exist.
  i There are only 3 elements.

num_as_location() errors on disallowed zeros when inverting negatives (#1612)

Code
  num_as_location(c(0, -1), n = 2L, negative = "invert", zero = "error")
Condition
  Error:
  ! Can't subset elements with `c(0, -1)`.
  x Subscript `c(0, -1)` can't contain `0` values.
  i It has a `0` value at location 1.

Code
  num_as_location(c(-1, 0), n = 2L, negative = "invert", zero = "error")
Condition
  Error:
  ! Can't subset elements with `c(-1, 0)`.
  x Subscript `c(-1, 0)` can't contain `0` values.
  i It has a `0` value at location 2.

num_as_location() with oob = 'extend' doesn't allow ignored oob negative values (#1614)

Code
  num_as_location(-6L, 5L, oob = "extend", negative = "ignore")
Condition
  Error:
  ! Can't negate elements past the end.
  i Location 6 doesn't exist.
  i There are only 5 elements.

Code
  num_as_location(c(-7L, 6L), 5L, oob = "extend", negative = "ignore")
Condition
  Error:
  ! Can't negate elements past the end.
  i Location 7 doesn't exist.
  i There are only 5 elements.

Code
  num_as_location(c(-7L, NA), 5L, oob = "extend", negative = "ignore")
Condition
  Error:
  ! Can't negate elements past the end.
  i Location 7 doesn't exist.
  i There are only 5 elements.

num_as_location() with oob = 'error' reports negative and positive oob values

Code
  num_as_location(c(-6L, 7L), n = 5L, oob = "error", negative = "ignore")
Condition
  Error:
  ! Can't subset elements past the end.
  i Locations 6 and 7 don't exist.
  i There are only 5 elements.

missing values are supported in error formatters

Code
  (expect_error(num_as_location(c(1, NA, 2, 3), 1), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements past the end.
  i Locations 2 and 3 don't exist.
  i There is only 1 element.
Code
  (expect_error(num_as_location(c(1, NA, 3), 1, oob = "extend"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 1.
  x Subscript `c(1, NA, 3)` contains non-consecutive location 3.

can disallow missing values

Code
  (expect_error(vec_as_location(c(1, NA), 2, missing = "error"), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements.
  x Subscript can't contain missing values.
  x It has a missing value at location 2.
Code
  (expect_error(vec_as_location(c(1, NA, 2, NA), 2, missing = "error", arg = "foo",
  call = call("my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements.
  x Subscript can't contain missing values.
  x It has missing values at locations 2 and 4.
Code
  (expect_error(with_tibble_cols(vec_as_location(c(1, NA, 2, NA), 2, missing = "error")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain missing values.
  x It has missing values at locations 2 and 4.
Code
  (expect_error(with_tibble_cols(vec_as_location(NA, 1, missing = "error")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain missing values.
  x It has a missing value at location 1.
Code
  (expect_error(with_tibble_cols(vec_as_location(NA, 3, missing = "error")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain missing values.
  x It has a missing value at location 1.
Code
  (expect_error(with_tibble_cols(vec_as_location(c(TRUE, NA, FALSE), 3, missing = "error")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain missing values.
  x It has a missing value at location 2.
Code
  (expect_error(with_tibble_cols(vec_as_location(NA_character_, 2, missing = "error",
    names = c("x", "y"))), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain missing values.
  x It has a missing value at location 1.

can alter logical missing value handling (#1595)

Code
  vec_as_location(x, n = 4L, missing = "error")
Condition
  Error:
  ! Can't subset elements.
  x Subscript can't contain missing values.
  x It has missing values at locations 2 and 4.

Code
  vec_as_location(x, n = 2L, missing = "error")
Condition
  Error:
  ! Can't subset elements.
  x Subscript can't contain missing values.
  x It has a missing value at location 1.

can alter character missing value handling (#1595)

Code
  vec_as_location(x, n = 2L, names = names, missing = "error")
Condition
  Error:
  ! Can't subset elements.
  x Subscript can't contain missing values.
  x It has missing values at locations 1 and 3.

can alter integer missing value handling (#1595)

Code
  vec_as_location(x, n = 4L, missing = "error")
Condition
  Error:
  ! Can't subset elements.
  x Subscript can't contain missing values.
  x It has missing values at locations 1 and 3.

can alter negative integer missing value handling (#1595)

Code
  num_as_location(x, n = 4L, missing = "propagate", negative = "invert")
Condition
  Error:
  ! Can't subset elements with `x`.
  x Negative locations can't have missing values.
  i Subscript `x` has 2 missing values at locations 2 and 3.

Code
  num_as_location(x, n = 4L, missing = "error", negative = "invert")
Condition
  Error:
  ! Can't subset elements with `x`.
  x Negative locations can't have missing values.
  i Subscript `x` has 2 missing values at locations 2 and 3.

empty string character indices never match empty string names (#1489)

Code
  vec_as_location("", n = 2L, names = names)
Condition
  Error:
  ! Can't subset elements.
  x Subscript can't contain the empty string.
  x It has an empty string at location 1.

Code
  vec_as_location(c("", "y", ""), n = 2L, names = names)
Condition
  Error:
  ! Can't subset elements.
  x Subscript can't contain the empty string.
  x It has an empty string at locations 1 and 3.

can customise subscript type errors

Code
  # With custom `arg`
  (expect_error(num_as_location(-1, 2, negative = "error", arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x Subscript `foo` can't contain negative locations.
Code
  (expect_error(num_as_location2(-1, 2, negative = "error", arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be a positive location, not -1.
Code
  (expect_error(vec_as_location2(0, 2, arg = "foo", call = call("my_function")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be a positive location, not 0.
Code
  (expect_error(vec_as_location2(na_dbl, 2, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be a location, not an integer `NA`.
Code
  (expect_error(vec_as_location2(c(1, 2), 2, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't extract element with `foo`.
  x Subscript `foo` must be size 1, not 2.
Code
  (expect_error(vec_as_location(c(TRUE, FALSE), 3, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_size"))
Output
  <error/vctrs_error_subscript_size>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x Logical subscript `foo` must be size 1 or 3, not 2.
Code
  (expect_error(vec_as_location(c(-1, NA), 3, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x Negative locations can't have missing values.
  i Subscript `foo` has a missing value at location 2.
Code
  (expect_error(vec_as_location(c(-1, 1), 3, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x Negative and positive locations can't be mixed.
  i Subscript `foo` has a positive value at location 2.
Code
  (expect_error(num_as_location(c(1, 4), 2, oob = "extend", arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `my_function()`:
  ! Can't subset elements beyond the end with non-consecutive locations.
  i Input has size 2.
  x Subscript `foo` contains non-consecutive location 4.
Code
  (expect_error(num_as_location(0, 1, zero = "error", arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error in `my_function()`:
  ! Can't subset elements with `foo`.
  x Subscript `foo` can't contain `0` values.
  i It has a `0` value at location 1.
Code
  # With tibble columns
  (expect_error(with_tibble_cols(num_as_location(-1, 2, negative = "error")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain negative locations.
Code
  (expect_error(with_tibble_cols(num_as_location2(-1, 2, negative = "error")),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename column with `foo(bar)`.
  x Subscript `foo(bar)` must be a positive location, not -1.
Code
  (expect_error(with_tibble_cols(vec_as_location2(0, 2)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename column with `foo(bar)`.
  x Subscript `foo(bar)` must be a positive location, not 0.
Code
  (expect_error(with_tibble_cols(vec_as_location2(na_dbl, 2)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename column with `foo(bar)`.
  x Subscript `foo(bar)` must be a location, not an integer `NA`.
Code
  (expect_error(with_tibble_cols(vec_as_location2(c(1, 2), 2)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename column with `foo(bar)`.
  x Subscript `foo(bar)` must be size 1, not 2.
Code
  (expect_error(with_tibble_cols(vec_as_location(c(TRUE, FALSE), 3)), class = "vctrs_error_subscript_size")
  )
Output
  <error/vctrs_error_subscript_size>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Logical subscript `foo(bar)` must be size 1 or 3, not 2.
Code
  (expect_error(with_tibble_cols(vec_as_location(c(-1, NA), 3)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Negative locations can't have missing values.
  i Subscript `foo(bar)` has a missing value at location 2.
Code
  (expect_error(with_tibble_cols(vec_as_location(c(-1, 1), 3)), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Negative and positive locations can't be mixed.
  i Subscript `foo(bar)` has a positive value at location 2.
Code
  (expect_error(with_tibble_cols(num_as_location(c(1, 4), 2, oob = "extend")),
  class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error:
  ! Can't rename columns beyond the end with non-consecutive locations.
  i Input has size 2.
  x Subscript `foo(bar)` contains non-consecutive location 4.
Code
  (expect_error(with_tibble_cols(num_as_location(0, 1, zero = "error")), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't rename columns with `foo(bar)`.
  x Subscript `foo(bar)` can't contain `0` values.
  i It has a `0` value at location 1.

can customise OOB errors

Code
  (expect_error(vec_slice(set_names(letters), "foo"), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't subset elements that don't exist.
  x Element `foo` doesn't exist.
Code
  # With custom `arg`
  (expect_error(vec_as_location(30, length(letters), arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `my_function()`:
  ! Can't subset elements past the end.
  i Location 30 doesn't exist.
  i There are only 26 elements.
Code
  (expect_error(vec_as_location("foo", NULL, letters, arg = "foo", call = call(
    "my_function")), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `my_function()`:
  ! Can't subset elements that don't exist.
  x Element `foo` doesn't exist.
Code
  # With tibble columns
  (expect_error(with_tibble_cols(vec_slice(set_names(letters), "foo")), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't rename columns that don't exist.
  x Column `foo` doesn't exist.
Code
  (expect_error(with_tibble_cols(vec_slice(set_names(letters), 30)), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't rename columns that don't exist.
  i Location 30 doesn't exist.
  i There are only 26 columns.
Code
  (expect_error(with_tibble_cols(vec_slice(set_names(letters), -30)), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't rename columns that don't exist.
  i Location 30 doesn't exist.
  i There are only 26 columns.
Code
  # With tibble rows
  (expect_error(with_tibble_rows(vec_slice(set_names(letters), c("foo", "bar"))),
  class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't remove rows that don't exist.
  x Rows `foo` and `bar` don't exist.
Code
  (expect_error(with_tibble_rows(vec_slice(set_names(letters), 1:30)), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't remove rows past the end.
  i Locations 27, 28, 29, and 30 don't exist.
  i There are only 26 rows.
Code
  (expect_error(with_tibble_rows(vec_slice(set_names(letters), -(1:30))), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't remove rows past the end.
  i Locations 27, 28, 29, and 30 don't exist.
  i There are only 26 rows.
Code
  # With tidyselect select
  (expect_error(with_tidyselect_select(vec_slice(set_names(letters), c("foo",
    "bar"))), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't select columns that don't exist.
  x Columns `foo` and `bar` don't exist.
Code
  (expect_error(with_tidyselect_select(vec_slice(set_names(letters), 30)), class = "vctrs_error_subscript_oob")
  )
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't select columns past the end.
  i Location 30 doesn't exist.
  i There are only 26 columns.
Code
  (expect_error(with_tidyselect_select(vec_slice(set_names(letters), -(1:30))),
  class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't select columns past the end.
  i Locations 27, 28, 29, and 30 don't exist.
  i There are only 26 columns.
Code
  # With tidyselect relocate
  (expect_error(with_tidyselect_relocate(vec_slice(set_names(letters), c("foo",
    "bar"))), class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't relocate columns that don't exist.
  x Columns `foo` and `bar` don't exist.
Code
  (expect_error(with_tidyselect_relocate(vec_slice(set_names(letters), 30)),
  class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't relocate columns that don't exist.
  i Location 30 doesn't exist.
  i There are only 26 columns.
Code
  (expect_error(with_tidyselect_relocate(vec_slice(set_names(letters), -(1:30))),
  class = "vctrs_error_subscript_oob"))
Output
  <error/vctrs_error_subscript_oob>
  Error in `vec_slice()`:
  ! Can't relocate columns that don't exist.
  i Locations 27, 28, 29, and 30 don't exist.
  i There are only 26 columns.

vec_as_location() checks dimensionality

Code
  (expect_error(vec_as_location(matrix(TRUE, nrow = 1), 3L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `matrix(TRUE, nrow = 1)`.
  x Subscript `matrix(TRUE, nrow = 1)` must be a simple vector, not a matrix.
Code
  (expect_error(vec_as_location(array(TRUE, dim = c(1, 1, 1)), 3L), class = "vctrs_error_subscript_type")
  )
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't subset elements with `array(TRUE, dim = c(1, 1, 1))`.
  x Subscript `array(TRUE, dim = c(1, 1, 1))` must be a simple vector, not an array.
Code
  (expect_error(with_tibble_rows(vec_as_location(matrix(TRUE, nrow = 1), 3L)),
  class = "vctrs_error_subscript_type"))
Output
  <error/vctrs_error_subscript_type>
  Error:
  ! Can't remove rows with `foo(bar)`.
  x Subscript `foo(bar)` must be a simple vector, not a matrix.

vec_as_location() UI

Code
  vec_as_location(1, 1L, missing = "bogus")
Condition
  Error in `vec_as_location()`:
  ! `missing` must be one of "propagate", "remove", or "error".

num_as_location() UI

Code
  num_as_location(1, 1L, missing = "bogus")
Condition
  Error in `num_as_location()`:
  ! `missing` must be one of "propagate", "remove", or "error".

Code
  num_as_location(1, 1L, negative = "bogus")
Condition
  Error in `num_as_location()`:
  ! `negative` must be one of "invert", "error", or "ignore".

Code
  num_as_location(1, 1L, oob = "bogus")
Condition
  Error in `num_as_location()`:
  ! `oob` must be one of "error", "remove", or "extend".

Code
  num_as_location(1, 1L, zero = "bogus")
Condition
  Error in `num_as_location()`:
  ! `zero` must be one of "remove", "error", or "ignore".

vec_as_location2() UI

Code
  vec_as_location2(1, 1L, missing = "bogus")
Condition
  Error in `vec_as_location2_result()`:
  ! `missing` must be one of "error" or "propagate", not "bogus".

r-lib/vctrs documentation built on Oct. 30, 2024, 8:54 a.m.