tests/testthat/test-features-brolgar.R

In njtierney/brolgar: Browse Over Longitudinal Data Graphically and Analytically in R

wages_brolgar <- wages %>%
  features(ln_wages, feat_brolgar)

test_that("feat_brolgar returns the right names", {
  expect_equal(names(wages_brolgar),
               c("id",
                 "min",
                 "max",
                 "median",
                 "mean",
                 "q25",
                 "q75",
                 "range1",
                 "range2",
                 "range_diff",
                 "sd",
                 "var",
                 "mad",
                 "iqr",
                 "increase",
                 "decrease",
                 "unvary",
                 "diff_min",
                 "diff_q25",
                 "diff_median",
                 "diff_mean",
                 "diff_q75",
                 "diff_max",
                 "diff_var",
                 "diff_sd",
                 "diff_iqr"
                 ))
})


test_that("feat_brolgar returns the right dimensions", {
  expect_equal(dim(wages_brolgar),
               c(888, 26))
})

library(dplyr)
test_that("feat_brolgar returns all ids", {
  expect_equal(n_distinct(wages_brolgar$id), 888)
})