tests/testthat/test_printer.R

In CFehrmann/TelegramR: Get information of your work in R with Telegram

context("Just testing printer functionality")

test_that("Whether printer give us the same output",{

  set.seed(2)
  res = printer(x = rnorm(5), r = rnorm(5))

  expect_equal(nrow(res),5)
  cm = colMeans(res)
  expect_equal(cm, c(x = -0.0669694923133381, r = 0.48927278280285))
})