tests/testthat/test-display_print_dataframe.R

In correlation: Methods for Correlation Analysis

test_that("display and print method works - markdown", {
  skip_on_cran()
  skip_if(getRversion() < "4.0.0")
  skip_if_not_or_load_if_installed("gt")

  expect_snapshot(print(correlation(iris)))

  expect_snapshot(display(correlation(iris)))
})

# display and print method works - HTML -----------------------------

test_that("display and print method works - HTML", {
  skip_on_cran()
  skip_if(getRversion() < "4.0.0")
  skip_if_not_or_load_if_installed("gt")

  expect_snapshot(display(print(correlation(subset(mtcars, select = c("wt", "mpg"))), format = "html")))

  expect_snapshot(print(correlation(subset(mtcars, select = c("wt", "mpg"))), format = "html"))
})