# slice_sample() handles n= and prop=
Code
(expect_error(df %>% slice_sample(n = -1)))
Output
<error/rlang_error>
Error in `slice_sample()`:
! `n` must be positive.
Code
(expect_error(df %>% slice_sample(prop = -1)))
Output
<error/rlang_error>
Error in `slice_sample()`:
! `prop` must be positive.
Code
(expect_error(df %>% slice_sample(n = 4, replace = FALSE)))
Output
<error/rlang_error>
Error in `slice_sample()`:
! Problem while computing indices.
Caused by error in `sample.int()`:
! cannot take a sample larger than the population when 'replace = FALSE'
Code
(expect_error(df %>% slice_sample(prop = 4, replace = FALSE)))
Output
<error/rlang_error>
Error in `slice_sample()`:
! Problem while computing indices.
Caused by error in `sample.int()`:
! cannot take a sample larger than the population when 'replace = FALSE'
# slice() gives meaningfull errors
Code
(expect_error(slice(df, matrix(c(1, 2), ncol = 2))))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Can't convert <integer[,2]> to <integer>.
Cannot decrease dimensions.
Code
(expect_error(slice(gdf, matrix(c(1, 2), ncol = 2))))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
i The error occurred in group 1: x = 1.
Caused by error:
! Can't convert <integer[,2]> to <integer>.
Cannot decrease dimensions.
Code
(expect_error(slice(df, "a")))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Invalid result of type <character>.
i Indices must be positive or negative integers.
Code
(expect_error(slice(gdf, "a")))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
i The error occurred in group 1: x = 1.
Caused by error:
! Invalid result of type <character>.
i Indices must be positive or negative integers.
Code
(expect_error(slice(df, c(1, -1))))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Indices must be all positive or all negative.
i Got 1 positives, 1 negatives.
Code
(expect_error(slice(gdf, c(1, -1))))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
i The error occurred in group 1: x = 1.
Caused by error:
! Indices must be all positive or all negative.
i Got 1 positives, 1 negatives.
# slice_*() checks that `n=` is explicitly named
Code
(expect_error(slice_head(df, 5)))
Output
<error/rlang_error>
Error in `slice_head()`:
! `n` must be explicitly named.
i Did you mean `slice_head(n = 5)`?
Code
(expect_error(slice_tail(df, 5)))
Output
<error/rlang_error>
Error in `slice_tail()`:
! `n` must be explicitly named.
i Did you mean `slice_tail(n = 5)`?
Code
(expect_error(slice_min(df, x, 5)))
Output
<error/rlang_error>
Error in `slice_min()`:
! `n` must be explicitly named.
i Did you mean `slice_min(n = 5)`?
Code
(expect_error(slice_max(df, x, 5)))
Output
<error/rlang_error>
Error in `slice_max()`:
! `n` must be explicitly named.
i Did you mean `slice_max(n = 5)`?
Code
(expect_error(slice_sample(df, 5)))
Output
<error/rlang_error>
Error in `slice_sample()`:
! `n` must be explicitly named.
i Did you mean `slice_sample(n = 5)`?
# slice_*() checks that for empty `...
Code
(expect_error(slice_head(df, 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_head()`:
! `...` must be empty.
x Problematic arguments:
* ..1 = 5
* ..2 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_tail(df, 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_tail()`:
! `...` must be empty.
x Problematic arguments:
* ..1 = 5
* ..2 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_min(df, x, 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_min()`:
! `...` must be empty.
x Problematic arguments:
* ..1 = 5
* ..2 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_max(df, x, 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_max()`:
! `...` must be empty.
x Problematic arguments:
* ..1 = 5
* ..2 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_sample(df, 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_sample()`:
! `...` must be empty.
x Problematic arguments:
* ..1 = 5
* ..2 = 2
i Did you forget to name an argument?
---
Code
(expect_error(slice_head(df, n = 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_head()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_tail(df, n = 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_tail()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_min(df, x, n = 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_min()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_max(df, x, n = 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_max()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_sample(df, n = 5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_sample()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
---
Code
(expect_error(slice_head(df, prop = 0.5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_head()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_tail(df, prop = 0.5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_tail()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_min(df, x, prop = 0.5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_min()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_max(df, x, prop = 0.5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_max()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
Code
(expect_error(slice_sample(df, prop = 0.5, 2)))
Output
<error/rlib_error_dots_nonempty>
Error in `slice_sample()`:
! `...` must be empty.
x Problematic argument:
* ..1 = 2
i Did you forget to name an argument?
# slice_*() checks for constant n= and prop=
Code
(expect_error(slice_head(df, n = n())))
Output
<error/rlang_error>
Error in `slice_head()`:
! `n` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_head(df, prop = n())))
Output
<error/rlang_error>
Error in `slice_head()`:
! `prop` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_tail(df, n = n())))
Output
<error/rlang_error>
Error in `slice_tail()`:
! `n` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_tail(df, prop = n())))
Output
<error/rlang_error>
Error in `slice_tail()`:
! `prop` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_min(df, x, n = n())))
Output
<error/rlang_error>
Error in `slice_min()`:
! `n` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_min(df, x, prop = n())))
Output
<error/rlang_error>
Error in `slice_min()`:
! `prop` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_max(df, x, n = n())))
Output
<error/rlang_error>
Error in `slice_max()`:
! `n` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_max(df, x, prop = n())))
Output
<error/rlang_error>
Error in `slice_max()`:
! `prop` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_sample(df, n = n())))
Output
<error/rlang_error>
Error in `slice_sample()`:
! `n` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_sample(df, prop = n())))
Output
<error/rlang_error>
Error in `slice_sample()`:
! `prop` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
# slice_min/max() check size of `order_by=` (#5922)
Code
(expect_error(slice_min(data.frame(x = 1:10), 1:6)))
Output
<error/rlang_error>
Error in `slice_min()`:
! Problem while computing indices.
Caused by error:
! `order_by` must have size 10, not size 6.
Code
(expect_error(slice_max(data.frame(x = 1:10), 1:6)))
Output
<error/rlang_error>
Error in `slice_max()`:
! Problem while computing indices.
Caused by error:
! `order_by` must have size 10, not size 6.
# slice_sample() check size of `weight_by=` (#5922)
Code
(expect_error(slice_sample(data.frame(x = 1:10), n = 2, weight_by = 1:6)))
Output
<error/rlang_error>
Error in `slice_sample()`:
! Problem while computing indices.
Caused by error:
! `weight_by` must have size 10, not size 6.
# rename errors with invalid grouped data frame (#640)
Code
df <- tibble(x = 1:3)
(expect_error(slice(mtcars, 1, 1 + "")))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while evaluating `..2 = 1 + ""`.
Caused by error in `1 + ""`:
! non-numeric argument to binary operator
Code
(expect_error(group_by(mtcars, cyl) %>% slice(1, 1 + "")))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while evaluating `..2 = 1 + ""`.
i The error occurred in group 1: cyl = 4.
Caused by error in `1 + ""`:
! non-numeric argument to binary operator
Code
(expect_error(slice(df, TRUE)))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Invalid result of type <logical>.
i Indices must be positive or negative integers.
Code
(expect_error(slice(df, FALSE)))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Invalid result of type <logical>.
i Indices must be positive or negative integers.
Code
(expect_error(slice(mtcars, 1, 1, "")))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Can't combine `..1` <double> and `..3` <character>.
Code
(expect_error(group_by(mtcars, cyl) %>% slice(1, 1, "")))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
i The error occurred in group 1: cyl = 4.
Caused by error:
! Can't combine `..1` <double> and `..3` <character>.
Code
(expect_error(mtcars %>% slice(c(-1, 2))))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Indices must be all positive or all negative.
i Got 1 positives, 1 negatives.
Code
(expect_error(mtcars %>% slice(c(2:3, -1))))
Output
<error/rlang_error>
Error in `slice()`:
! Problem while computing indices.
Caused by error:
! Indices must be all positive or all negative.
i Got 2 positives, 1 negatives.
Code
(expect_error(slice_head(data.frame(), n = 1, prop = 1)))
Output
<error/rlang_error>
Error in `slice_head()`:
! Must supply `n` or `prop`, but not both.
Code
(expect_error(slice_tail(data.frame(), n = "a")))
Output
<error/rlang_error>
Error in `slice_tail()`:
! `n` must be a single number.
Code
(expect_error(slide_head(data.frame(), prop = "a")))
Output
<simpleError in slide_head(data.frame(), prop = "a"): could not find function "slide_head">
Code
(expect_error(slice_head(data.frame(), n = n())))
Output
<error/rlang_error>
Error in `slice_head()`:
! `n` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_head(data.frame(), prop = n())))
Output
<error/rlang_error>
Error in `slice_head()`:
! `prop` must be a constant.
Caused by error in `n()`:
! Must be used inside dplyr verbs.
Code
(expect_error(slice_head(data.frame(), n = NA)))
Output
<error/rlang_error>
Error in `slice_head()`:
! `n` must be a single number.
Code
(expect_error(slice_head(data.frame(), prop = NA)))
Output
<error/rlang_error>
Error in `slice_head()`:
! `prop` must be a single number.
Generated by dwww version 1.15 on Sat May 18 13:14:28 CEST 2024.