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"))
})

Try the plotGrouper package in your browser

Any scripts or data that you put into this service are public.

plotGrouper documentation built on Nov. 8, 2020, 5:25 p.m.