为什么 R 中的这个函数在小数点前放置一个反斜杠？

Question

我有以下函数，它应该输出一串文本，但似乎在数字的小数点前添加了反斜杠：

myfunction <- function(x) {
    center <- mean(x)
    cat("Mean = ",center)
}

用一些数字测试一下：

library(testthat)

x <-c(1,2,3,7)

    expect_that(
        myfunction(x),
        prints_text("Mean = 3.25"))

Error: `x` does not match "Mean = 3.25".
Actual value: "Mean =  3\.25"

如何更正函数以打印正确的 ("Mean = 3.25") 输出？

Answer 1

编辑：

废话，这行得通：

myfunction <- function(x) {
  center <- mean(x)
  cat("Mean =",center)
}

expect_that(
  myfunction(c(1,2,3,7)),
  prints_text("Mean = 3.25", fixed=TRUE))

即删除cat() 中的空格并添加fixed = TRUE，否则任何结果的数字为3，后跟25的任何内容都将通过测试。

原始但可能是错误的答案：

这是因为testthat::prints_text 需要一个正则表达式。添加参数fixed = TRUE（并且\. 转义正则表达式中的文字点）

即

 prints_text("Mean = 3.25"),  fixed = TRUE)

最终编辑：

因为这似乎会引起混淆：

这个：

myfunction <- function(x) {
  center <- mean(x)
  cat("Mean =","3925")
}

通过此测试（！）：

library(testthat)
expect_that(
  myfunction(c(1,2,3,7)),
  prints_text("Mean = 3.25"))

但是没有通过这个测试：

library(testthat)    
expect_that(
  myfunction(c(1,2,3,7)),
  prints_text("Mean = 3.25", fixed=TRUE))