tests/testthat/test-missing.R

In romainfrancois/tie: Multiple value summarise

context("missing")

data <- dplyr::group_by( iris, Species)

test_that("bowtie understand missing", {
  res <- data %>%
    bow( tie(,max) := range(Sepal.Length))

  expect_identical(res,
    dplyr::summarise(data, max = max(Sepal.Length) )
  )

  res <- data %>%
    bow( tie(min,) := range(Sepal.Length))

  expect_identical(res,
    dplyr::summarise(data, min = min(Sepal.Length) )
  )
})