Можно ли использовать testthat :: allow_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")