tests/testthat/test-vis_corr.R

context("test-vis_corr")

test_that("vis_corr works", {

  data(iris)

  # Test if there are numeric variables
  ggp <- vis_corr(iris)
  expect_is(ggp, class = c("gg", "ggplot"))


})
BenjaminLouis/datascan documentation built on May 26, 2019, 1:35 p.m.