tests/testthat/test-vis_numerics.R

In BenjaminLouis/datascan: Tools to perform exploratory data analysis (EDA)

context("test-vis_numerics")

test_that("vis_numerics works", {

  data(iris)

  # Test if there are numeric variables
  ggplist <- vis_numerics(iris)
  expect_is(ggplist, class = "list")

  # Test if there is not numeric variable
  expect_error(vis_numerics(iris["Species"]),
               "There should be numerical columns in .data")
})