tests/testthat/test-multistats.R

context("multistats")

test_that("output from multistats is as expected", {
  actual <- ds_tidy_stats(mtcars, mpg, disp, hp) %>%
    dplyr::filter(vars == "disp") %>%
    dplyr::select(min)
  expected <- tibble::tibble(min = 71.1)
  expect_equal(actual, expected)
})

Try the descriptr package in your browser

Any scripts or data that you put into this service are public.

descriptr documentation built on Feb. 1, 2020, 9:07 a.m.