tests/testthat/test-pull_distinct.R

context("test-pull_distinct")

v_cyl <- mtcars %>% pull_distinct(cyl)

test_that("multiplication works", {
  expect_equal(v_cyl, c(6,4,8))
})
Kidapt/keda documentation built on Nov. 23, 2019, 3:35 a.m.