tests/testthat/test-correlation_graph.R

library(vdiffr)
library(testthat)

correlation_graph_matrix <- correlation_graph(mtcars[1:3, 1:3])

test_that("refactoring the code should not change the plot", {
  expect_doppelganger("ggpairs plot",
                      correlation_graph_matrix)
})
DSCI-310/DSCI-310-Group-11-package documentation built on April 9, 2022, 12:32 a.m.