tests/testthat/test-readdata.R

context("test-readdata")
library(plotGrouper)

testthat::test_that("readData works", {
  testthat::skip_on_os("windows")
  f <- plotGrouper::readData_example(path = "iris.xlsx")
  testthat::expect_is(readData(f, 1), class = c("tbl_df",
                                                "tbl",
                                                "data.frame"))
})
jdgagnon/plotGrouper documentation built on May 14, 2019, 11:12 a.m.