tests/testthat/test-tidiers.r

In ordr: A 'tidyverse' Extension for Ordinations and Biplots

ed <- as_tbl_ord(eigen_ord(cbind(c(1,-1), c(-1,1))))
fa <- as_tbl_ord(factanal(swiss, factors = 3L, scores = "regression"))

ed_aug <- augment_ord(ed)
fa_aug <- augment_ord(fa)

test_that("augmentation preserves 'tbl_ord' class", {
  expect_s3_class(ed_aug, "tbl_ord")
  expect_s3_class(fa_aug, "tbl_ord")
})

test_that("augmentation preserves factor dimensions", {
  expect_equal(nrow(get_rows(ed_aug)), nrow(get_rows(ed)))
  expect_equal(nrow(get_cols(ed_aug)), nrow(get_cols(ed)))
  expect_equal(nrow(get_rows(fa_aug)), nrow(get_rows(fa)))
  expect_equal(nrow(get_cols(fa_aug)), nrow(get_cols(fa)))
})

test_that("glancing returns a single row", {
  expect_equal(nrow(glance(ed)), 1L)
  expect_equal(nrow(glance(fa)), 1L)
})

test_that("tidying includes 'inertia' and 'name' fields", {
  expect_true(all(c("inertia", "name") %in% names(tidy(ed))))
  expect_true(all(c("inertia", "name") %in% names(tidy(fa))))
})