tests/testthat/test-ggbiplot.r

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

pca <- confer_inertia(as_tbl_ord(prcomp(USPersonalExpenditure)), "symmetric")

test_that("`ggplot()` successfully passes `.matrix` to `fortify()`", {
  expect_equal(nrow(layer_data(ggplot(pca, .matrix = "rows"))),
               nrow(USPersonalExpenditure))
  expect_equal(nrow(layer_data(ggplot(pca, .matrix = "cols"))),
               ncol(USPersonalExpenditure))
})

test_that("`ggbiplot()` handles coordinate aesthetics", {
  expect_true(all(c("x", "y") %in% names(ggbiplot(pca)$mapping)))
  expect_true(all(c("x", "y") %in% names(ggbiplot(pca, aes(y = 3))$mapping)))
  expect_error(print(ggbiplot(pca) + geom_rows_point()),
               regexp = NA)
  expect_error(print(ggbiplot(pca, aes(x = 2, y = 0)) + geom_rows_point()),
               regexp = "select")
  expect_error(print(ggbiplot(pca, aes(x = 2, y = 0 + 0)) + geom_rows_point()),
               regexp = NA)
})