R test_表示ggplot没有改变

Question

我有一个自定义绘图功能，我希望确保即使在为绘图功能添加其他选项后它也会显示相同的绘图。

不幸的是， testthat::expect_known_hash -approach失败了因为ggplots存储了一些环境的信息，这显然会在重启R时发生变化。

在测试函数工厂的输出时会出现类似的问题，因为闭包也会带有它们的环境。

有没有人遇到过这个问题，你是怎么解决的？

Answer 1

库compare允许您比较不同的R对象。 该包具有不同的功能来检测对象之间的差异。

compare(plot(0), plot(0))
TRUE



scatter <- ggplot(data=iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point(aes(color=Species, shape=Species))
scatter2 <- ggplot(data=iris, aes(x = Sepal.Length, y = Petal.Width)) + geom_point(aes(color=Species, shape=Species))

compare(scatter, scatter2)

FALSE [TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, FALSE]
model treated as list
[layers] [1] model treated as character
[scales] model treated as character
[mapping] model treated as list
[mapping] [y] model treated as character
[coordinates] model treated as character
[facet] model treated as character

Answer 2

如果这是测试用例的一部分，您可以使用扩展'testthat'的包'vdiffr'。 它用于测试用例的最新版本'ggplot2'，因此您可以在Github中查看示例。 它还在RStudio中安装一个插件来管理保存的测试用例，并对失败的测试进行视觉比较。 它工作得很好，我在自己的包中使用它。 它使用简化的svg设备将参考图保存到磁盘。

测试用例可能看起来像这样（其余的都像'testthat'案例）：

  vdiffr::expect_doppelganger("test_001",
                              ggplot(data = cars, aes(speed, dist)) +
                                geom_point()
  )

在其他一些情况下，来自包'testthat'的expect_known_output()或expect_known_value()可能有所帮助，但我猜不是在所有情况下。