tests/testthat/test-fortify-isomap.R

In ggvegan: 'ggplot2' Plots for the 'vegan' Package

# Tests for fortify.isomap()

test_that("fortify works for isomap objects", {
  expect_s3_class(fortify(dune_isomap), "tbl_df")
  expect_s3_class(fortify(dune_isomap, what = "network"), "tbl_df")

  skip_on_ci()
  expect_snapshot(fortify(dune_isomap))
  expect_snapshot(fortify(dune_isomap, what = "network"))
})

test_that("tidy works for isomap objects", {
  expect_s3_class(tidy(dune_isomap), "tbl_df")
  expect_s3_class(tidy(dune_isomap, what = "network"), "tbl_df")

  skip_on_ci()
  expect_snapshot(tidy(dune_isomap))
  expect_snapshot(tidy(dune_isomap, what = "network"))
})