如何验证 r testthat 中的符号值？

Question

在符号中测试相等性的正确方法是什么？

我试过了

expect_equal( tsibble::index(bngoRawData), "time" )

但它失败了：

tsibble::index(bngoRawData) (`actual`) not equal to "time" (`expected`).

`actual` is a symbol
`expected` is a character vector ('time')

如果“时间”没有引号，它会抱怨它是一个函数。

Answer 1

我们可以使用as.name:

library(tsibble)
library(testthat)
expect_equal(tsibble::index(pedestrian), as.name("Date_Time"))

或者我们可以使用 rlang::sym。