抑制 test_that output“测试通过:)”

Question

R 中的 test_that package（版本 3.0.2）的更新导致默认 output 用于通过测试：

考试通过了：）

这最初很可爱，但在 model 中很烦人，它每次迭代都会执行数千次测试。

这个消息怎么能被屏蔽？

Answer 1

一种选择是将消息提取为字符串并将其转移到 object。 我们可以使用capture.output

out <- capture.output(test_that("trigonometric functions match identities", {
 expect_equal(sin(pi / 4), 1 / sqrt(2))
expect_equal(cos(pi / 4), 1 / sqrt(2))
expect_equal(tan(pi / 4), 1)
}))

但是抑制消息的功能仍会打印消息

---

我们可以在使用grep捕获后设置条件打印与否

f1 <- function(x) if(any(!grepl('passed', x))) cat(x, sep='\n')

out1 <- capture.output(test_that("trigonometric functions match identities", {

  expect_equal(sin(pi / 4), 1 / sqrt(2))
  expect_equal(cos(pi / 4), 1 / sqrt(2))
  expect_equal(tan(pi / 4), 1)
  expect_equal(sin(pi / 4), 1)

   }))

f1(out) # nothing prints
f1(out1)
#── Failure (???): trigonometric functions match identities ─────────────────────
#sin(pi/4) not equal to 1.
#1/1 mismatches
#[1] 0.707 - 1 == -0.293