tests/testthat/_snaps/slice.md

In tidyverse/dplyr: A Grammar of Data Manipulation

slice errors if positive and negative indices mixed

Code
  slice(tibble(), 1, -1)
Condition
  Error in `slice()`:
  ! Can't compute indices.
  Caused by error:
  ! Can't subset elements with `1`.
  x Negative and positive locations can't be mixed.
  i Subscript `1` has a positive value at location 1.

slicing with one-column matrix is deprecated

Code
  out <- slice(df, matrix(c(1, 3)))
Condition
  Warning:
  Slicing with a 1-column matrix was deprecated in dplyr 1.1.0.

slice errors if index is not numeric

Code
  slice(tibble(), "a")
Condition
  Error in `slice()`:
  i In argument: `"a"`.
  Caused by error:
  ! Can't subset elements with `"a"`.
  x `"a"` must be numeric, not the string "a".

user errors are correctly labelled

Code
  slice(df, 1 + "")
Condition
  Error in `slice()`:
  i In argument: `1 + ""`.
  Caused by error in `1 + ""`:
  ! non-numeric argument to binary operator
Code
  slice(group_by(df, x), 1 + "")
Condition
  Error in `slice()`:
  i In argument: `1 + ""`.
  i In group 1: `x = 1`.
  Caused by error in `1 + ""`:
  ! non-numeric argument to binary operator

... can't be named (#6554)

Code
  slice(df, 1, foo = g)
Condition
  Error in `slice()`:
  ! Arguments in `...` must be passed by position, not name.
  x Problematic argument:
  * foo = g

can't use .by with .preserve

Code
  slice(df, .by = x, .preserve = TRUE)
Condition
  Error in `slice()`:
  ! Can't supply both `.by` and `.preserve`.

catches .by with grouped-df

Code
  slice(gdf, .by = x)
Condition
  Error in `slice()`:
  ! Can't supply `.by` when `.data` is a grouped data frame.

catches .by with rowwise-df

Code
  slice(rdf, .by = x)
Condition
  Error in `slice()`:
  ! Can't supply `.by` when `.data` is a rowwise data frame.

catches by typo (#6647)

Code
  slice(df, by = x)
Condition
  Error in `slice()`:
  ! Can't specify an argument named `by` in this verb.
  i Did you mean to use `.by` instead?

slice_helpers() call get_slice_size()

Code
  slice_head(df, n = "a")
Condition
  Error in `slice_head()`:
  ! `n` must be a round number, not the string "a".
Code
  slice_tail(df, n = "a")
Condition
  Error in `slice_tail()`:
  ! `n` must be a round number, not the string "a".
Code
  slice_min(df, x, n = "a")
Condition
  Error in `slice_min()`:
  ! `n` must be a round number, not the string "a".
Code
  slice_max(df, x, n = "a")
Condition
  Error in `slice_max()`:
  ! `n` must be a round number, not the string "a".
Code
  slice_sample(df, n = "a")
Condition
  Error in `slice_sample()`:
  ! `n` must be a round number, not the string "a".

get_slice_size() validates its inputs

Code
  get_slice_size(n = 1, prop = 1)
Condition
  Error:
  ! Must supply `n` or `prop`, but not both.
Code
  get_slice_size(n = "a")
Condition
  Error:
  ! `n` must be a round number, not the string "a".
Code
  get_slice_size(prop = "a")
Condition
  Error:
  ! `prop` must be a number, not the string "a".

get_slice_size() snapshots

Code
  body(get_slice_size(prop = 0))
Output
  clamp(0, floor(0 * n), n)
Code
  body(get_slice_size(prop = 0.4))
Output
  clamp(0, floor(0.4 * n), n)
Code
  body(get_slice_size(prop = 2))
Output
  clamp(0, floor(2 * n), n)
Code
  body(get_slice_size(prop = 2, allow_outsize = TRUE))
Output
  floor(2 * n)
Code
  body(get_slice_size(prop = -0.4))
Output
  clamp(0, ceiling(n + -0.4 * n), n)
Code
  body(get_slice_size(prop = -2))
Output
  clamp(0, ceiling(n + -2 * n), n)
Code
  body(get_slice_size(n = 0))
Output
  clamp(0, 0, n)
Code
  body(get_slice_size(n = 4))
Output
  clamp(0, 4, n)
Code
  body(get_slice_size(n = 20))
Output
  clamp(0, 20, n)
Code
  body(get_slice_size(n = 20, allow_outsize = TRUE))
Output
  [1] 20
Code
  body(get_slice_size(n = -4))
Output
  clamp(0, ceiling(n + -4), n)
Code
  body(get_slice_size(n = -20))
Output
  clamp(0, ceiling(n + -20), n)

n must be an integer

Code
  slice_head(df, n = 1.1)
Condition
  Error in `slice_head()`:
  ! `n` must be a round number, not the number 1.1.

slice_*() checks that n= is explicitly named and ... is empty

Code
  slice_head(df, 5)
Condition
  Error in `slice_head()`:
  ! `n` must be explicitly named.
  i Did you mean `slice_head(n = 5)`?
Code
  slice_tail(df, 5)
Condition
  Error in `slice_tail()`:
  ! `n` must be explicitly named.
  i Did you mean `slice_tail(n = 5)`?
Code
  slice_min(df, x, 5)
Condition
  Error in `slice_min()`:
  ! `n` must be explicitly named.
  i Did you mean `slice_min(n = 5)`?
Code
  slice_max(df, x, 5)
Condition
  Error in `slice_max()`:
  ! `n` must be explicitly named.
  i Did you mean `slice_max(n = 5)`?
Code
  slice_sample(df, 5)
Condition
  Error in `slice_sample()`:
  ! `n` must be explicitly named.
  i Did you mean `slice_sample(n = 5)`?

Code
  dplyr::slice_head(df, 5)
Condition
  Error in `dplyr::slice_head()`:
  ! `n` must be explicitly named.
  i Did you mean `dplyr::slice_head(n = 5)`?
Code
  dplyr::slice_tail(df, 5)
Condition
  Error in `dplyr::slice_tail()`:
  ! `n` must be explicitly named.
  i Did you mean `dplyr::slice_tail(n = 5)`?
Code
  dplyr::slice_min(df, x, 5)
Condition
  Error in `dplyr::slice_min()`:
  ! `n` must be explicitly named.
  i Did you mean `dplyr::slice_min(n = 5)`?
Code
  dplyr::slice_max(df, x, 5)
Condition
  Error in `dplyr::slice_max()`:
  ! `n` must be explicitly named.
  i Did you mean `dplyr::slice_max(n = 5)`?
Code
  dplyr::slice_sample(df, 5)
Condition
  Error in `dplyr::slice_sample()`:
  ! `n` must be explicitly named.
  i Did you mean `dplyr::slice_sample(n = 5)`?

Code
  slice_head(df, 5, 2)
Condition
  Error in `slice_head()`:
  ! `...` must be empty.
  x Problematic arguments:
  * ..1 = 5
  * ..2 = 2
  i Did you forget to name an argument?
Code
  slice_tail(df, 5, 2)
Condition
  Error in `slice_tail()`:
  ! `...` must be empty.
  x Problematic arguments:
  * ..1 = 5
  * ..2 = 2
  i Did you forget to name an argument?
Code
  slice_min(df, x, 5, 2)
Condition
  Error in `slice_min()`:
  ! `...` must be empty.
  x Problematic arguments:
  * ..1 = 5
  * ..2 = 2
  i Did you forget to name an argument?
Code
  slice_max(df, x, 5, 2)
Condition
  Error in `slice_max()`:
  ! `...` must be empty.
  x Problematic arguments:
  * ..1 = 5
  * ..2 = 2
  i Did you forget to name an argument?
Code
  slice_sample(df, 5, 2)
Condition
  Error in `slice_sample()`:
  ! `...` must be empty.
  x Problematic arguments:
  * ..1 = 5
  * ..2 = 2
  i Did you forget to name an argument?

slice_helper by errors use correct error context and correct by_arg

Code
  slice_head(gdf, n = 1, by = x)
Condition
  Error in `slice_head()`:
  ! Can't supply `by` when `.data` is a grouped data frame.
Code
  slice_tail(gdf, n = 1, by = x)
Condition
  Error in `slice_tail()`:
  ! Can't supply `by` when `.data` is a grouped data frame.
Code
  slice_min(gdf, order_by = x, by = x)
Condition
  Error in `slice_min()`:
  ! Can't supply `by` when `.data` is a grouped data frame.
Code
  slice_max(gdf, order_by = x, by = x)
Condition
  Error in `slice_max()`:
  ! Can't supply `by` when `.data` is a grouped data frame.
Code
  slice_sample(gdf, n = 1, by = x)
Condition
  Error in `slice_sample()`:
  ! Can't supply `by` when `.data` is a grouped data frame.

slice_helper catches .by typo (#6647)

Code
  slice_head(df, n = 1, .by = x)
Condition
  Error in `slice_head()`:
  ! Can't specify an argument named `.by` in this verb.
  i Did you mean to use `by` instead?
Code
  slice_tail(df, n = 1, .by = x)
Condition
  Error in `slice_tail()`:
  ! Can't specify an argument named `.by` in this verb.
  i Did you mean to use `by` instead?
Code
  slice_min(df, order_by = x, .by = x)
Condition
  Error in `slice_min()`:
  ! Can't specify an argument named `.by` in this verb.
  i Did you mean to use `by` instead?
Code
  slice_max(df, order_by = x, .by = x)
Condition
  Error in `slice_max()`:
  ! Can't specify an argument named `.by` in this verb.
  i Did you mean to use `by` instead?
Code
  slice_sample(df, n = 1, .by = x)
Condition
  Error in `slice_sample()`:
  ! Can't specify an argument named `.by` in this verb.
  i Did you mean to use `by` instead?

slice_min/max() check size of order_by= (#5922)

Code
  slice_min(data.frame(x = 1:10), 1:6)
Condition
  Error in `slice_min()`:
  ! Can't compute indices.
  Caused by error:
  ! `order_by` must have size 10, not size 6.
Code
  slice_max(data.frame(x = 1:10), 1:6)
Condition
  Error in `slice_max()`:
  ! Can't compute indices.
  Caused by error:
  ! `order_by` must have size 10, not size 6.

slice_min/max() validate simple arguments

Code
  slice_min(data.frame(x = 1:10))
Condition
  Error in `slice_min()`:
  ! `order_by` is absent but must be supplied.
Code
  slice_max(data.frame(x = 1:10))
Condition
  Error in `slice_max()`:
  ! `order_by` is absent but must be supplied.
Code
  slice_min(data.frame(x = 1:10), x, with_ties = 1)
Condition
  Error in `slice_min()`:
  ! `with_ties` must be `TRUE` or `FALSE`, not the number 1.
Code
  slice_max(data.frame(x = 1:10), x, with_ties = 1)
Condition
  Error in `slice_max()`:
  ! `with_ties` must be `TRUE` or `FALSE`, not the number 1.
Code
  slice_min(data.frame(x = 1:10), x, na_rm = 1)
Condition
  Error in `slice_min()`:
  ! `na_rm` must be `TRUE` or `FALSE`, not the number 1.
Code
  slice_max(data.frame(x = 1:10), x, na_rm = 1)
Condition
  Error in `slice_max()`:
  ! `na_rm` must be `TRUE` or `FALSE`, not the number 1.

slice_sample() checks size of weight_by= (#5922)

Code
  slice_sample(df, n = 2, weight_by = 1:6)
Condition
  Error in `slice_sample()`:
  ! Can't compute indices.
  Caused by error:
  ! `weight_by` must have size 10, not size 6.

slice_sample() validates replace

Code
  slice_sample(df, replace = 1)
Condition
  Error in `slice_sample()`:
  ! `replace` must be `TRUE` or `FALSE`, not the number 1.
Code
  slice_sample(df, replace = NA)
Condition
  Error in `slice_sample()`:
  ! `replace` must be `TRUE` or `FALSE`, not `NA`.

tidyverse/dplyr documentation built on Feb. 13, 2024, 11:18 p.m.