tests/testthat/_snaps/summarise.md

In javifar/TIDYVERSE-DPLYR: A Grammar of Data Manipulation

summarise() gives meaningful errors

Code
  tibble(x = 1, y = 2) %>% group_by(x, y) %>% summarise()
Message <message>
  `summarise()` has grouped output by 'x'. You can override using the `.groups` argument.
Output
  # A tibble: 1 x 2
  # Groups:   x [1]
        x     y
    <dbl> <dbl>
  1     1     2

Code
  tibble(x = 1, y = 2) %>% group_by(x, y) %>% summarise(z = c(2, 2))
Message <message>
  `summarise()` has grouped output by 'x', 'y'. You can override using the `.groups` argument.
Output
  # A tibble: 2 x 3
  # Groups:   x, y [1]
        x     y     z
    <dbl> <dbl> <dbl>
  1     1     2     2
  2     1     2     2

Code
  tibble(x = 1, y = 2) %>% rowwise(x, y) %>% summarise()
Message <message>
  `summarise()` has grouped output by 'x', 'y'. You can override using the `.groups` argument.
Output
  # A tibble: 1 x 2
  # Groups:   x, y [1]
        x     y
    <dbl> <dbl>
  1     1     2

Code
  tibble(x = 1, y = 2) %>% rowwise() %>% summarise()
Output
  # A tibble: 1 x 0

Code
  tibble(x = 1, y = c(1, 2, 2), z = runif(3)) %>% summarise(a = rlang::env(a = 1))
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = rlang::env(a = 1)`.
  x `a` must be a vector, not an environment.

Code
  tibble(x = 1, y = c(1, 2, 2), z = runif(3)) %>% group_by(x, y) %>% summarise(a = rlang::env(
    a = 1))
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = rlang::env(a = 1)`.
  x `a` must be a vector, not an environment.
  i The error occurred in group 1: x = 1, y = 1.

Code
  tibble(x = 1, y = c(1, 2, 2), z = runif(3)) %>% rowwise() %>% summarise(a = lm(
    y ~ x))
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = lm(y ~ x)`.
  x `a` must be a vector, not a `lm` object.
  i Did you mean: `a = list(lm(y ~ x))` ?
  i The error occurred in row 1.

Code
  tibble(id = 1:2, a = list(1, "2")) %>% group_by(id) %>% summarise(a = a[[1]])
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = a[[1]]`.
  x `a` must return compatible vectors across groups
  i Result type for group 1 (id = 1): <double>.
  i Result type for group 2 (id = 2): <character>.

Code
  tibble(id = 1:2, a = list(1, "2")) %>% rowwise() %>% summarise(a = a[[1]])
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = a[[1]]`.
  x `a` must return compatible vectors across groups

Code
  tibble(z = 1) %>% summarise(x = 1:3, y = 1:2)
Error <dplyr_error>
  Problem with `summarise()` column `y`.
  i `y = 1:2`.
  x `y` must be size 3 or 1, not 2.
  i An earlier column had size 3.

Code
  tibble(z = 1:2) %>% group_by(z) %>% summarise(x = 1:3, y = 1:2)
Error <dplyr_error>
  Problem with `summarise()` column `y`.
  i `y = 1:2`.
  x `y` must be size 3 or 1, not 2.
  i An earlier column had size 3.
  i The error occurred in group 1: z = 1.

Code
  tibble(z = c(1, 3)) %>% group_by(z) %>% summarise(x = seq_len(z), y = 1:2)
Error <dplyr_error>
  Problem with `summarise()` column `y`.
  i `y = 1:2`.
  x `y` must be size 3 or 1, not 2.
  i An earlier column had size 3.
  i The error occurred in group 2: z = 3.

Code
  data.frame(x = 1:2, g = 1:2) %>% group_by(g) %>% summarise(x = if (g == 1) 42)
Error <dplyr_error>
  Problem with `summarise()` column `x`.
  i `x = if (g == 1) 42`.
  x `x` must return compatible vectors across groups.
  i Cannot combine NULL and non NULL results.

Code
  summarise(mtcars, a = mean(not_there))
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = mean(not_there)`.
  x object 'not_there' not found

Code
  summarise(group_by(mtcars, cyl), a = mean(not_there))
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = mean(not_there)`.
  x object 'not_there' not found
  i The error occurred in group 1: cyl = 4.

Code
  summarise(tibble(a = 1), c = .data$b)
Error <dplyr_error>
  Problem with `summarise()` column `c`.
  i `c = .data$b`.
  x Column `b` not found in `.data`

Code
  summarise(group_by(tibble(a = 1:3), a), c = .data$b)
Error <dplyr_error>
  Problem with `summarise()` column `c`.
  i `c = .data$b`.
  x Column `b` not found in `.data`
  i The error occurred in group 1: a = 1.

Code
  tibble(x = 1, x = 1, .name_repair = "minimal") %>% summarise(x)
Error <rlang_error>
  Can't transform a data frame with duplicate names.

Code
  tibble() %>% summarise(stop("{"))
Error <dplyr_error>
  Problem with `summarise()` input `..1`.
  i `..1 = stop("{")`.
  x {

Code
  tibble(a = 1, b = "{value:1, unit:a}") %>% group_by(b) %>% summarise(a = stop(
    "!"))
Error <dplyr_error>
  Problem with `summarise()` column `a`.
  i `a = stop("!")`.
  x !
  i The error occurred in group 1: b = "{value:1, unit:a}".

javifar/TIDYVERSE-DPLYR documentation built on Dec. 20, 2021, 9:08 p.m.