tests/testthat/test_printHead.R

context("printHead")

test_that("printHead", {
  expect_output(printHead(1:10), "...")
  expect_output(printHead(as.list(1:10)), "...")
  expect_output(printHead(iris), "...")
  expect_output(printHead(matrix(runif(20), ncol = 2L)), "...")
})

Try the BBmisc package in your browser

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

BBmisc documentation built on Sept. 29, 2022, 5:12 p.m.