是否可以使用testthat :: expect_output期望回车？

Question

我正在尝试测试我的包裹，以确保打印到屏幕上的消息以回车结尾。当我尝试匹配最后的回车符时，它永远不会成功。有什么办法可以匹配回车吗？

library(testthat)
foo <- function() cat("Hello\n")
expect_output(foo(), "Hello\n")
#> Error: `foo\(\)` does not match "Hello\n".
#> Actual value: "Hello"

Answer 1

以下作品，看起来像是猫的行为

看看fill参数的帮助（默认为FALSE）

foo <- function() {cat ("Hello\n",fill=TRUE)}
expect_output(foo(), "Hello\n")