tests/testthat/test_inspect_cat_grouped.R

In alastairrushworth/inspectdf: Inspection, Comparison and Visualisation of Data Frames

library(vdiffr)
context("inspect_cat with grouped dataframes")

# load in some example data
data("starwars", package = "dplyr")
data("band_instruments", package = "dplyr")
data("storms", package = "dplyr")
data(mtcars, airquality)

test_that("inspect_cat & grouped dataframe = df (mtcars)", {
  x <- try(mtcars %>% dplyr::group_by(am) %>% inspect_cat(), silent = TRUE)
  expect_is(x, "data.frame")
  expect_equal(attr(x, "type")$input_type, "grouped")
  expect_equal(colnames(x)[1], "am")
})

test_that("inspect_cat & grouped dataframe = df (storms)", {
  x <- try(storms %>% dplyr::group_by(status) %>% inspect_cat(), silent = TRUE)
  expect_is(x, "data.frame")
  expect_equal(attr(x, "type")$input_type, "grouped")
  expect_equal(colnames(x)[1], "status")
})

test_that("inspect_cat for multiple groups", {
  x_year_qrt <- try(tech %>% dplyr::group_by(year, quarter) %>% inspect_cat(), silent = TRUE)
  expect_equal(attr(x_year_qrt, "type")$input_type, "grouped")
  expect_equal(colnames(x_year_qrt)[1:2], rev(c("year", "quarter")))
})