tests/testthat/test-glance_data.R

In glancedata: Generate tables and plots to get summaries of data

context("test-glance_data")


test_that("nas expected", {
  all_nas <- as.vector(glance_data(iris)[5, 4:6])
  expect_true(all(is.na(all_nas)))
})

test_that("check types",{
  output <- glance_data(iris)$type
  comparison <-
    output == c("numerical", "numerical", "numerical",
                "numerical", "factor")
  all_good <- all(comparison)
expect_true(all_good)
})

test_that("test all column types",{
  out <- iris
  out$setosa <-  iris$Species == "Setosa"
  out$chr_species <-  as.character(iris$Species)
  out$all_nas <-  NA
  expect_true(nrow(glance_data(out)) == 8)
})