如何测试是否打印了ggplot? 让我们考虑非常基本的函数: plot_ggplot <- function() { print(ggplot() + aes(x = 1:100, y = 1:100) + geom_point()) } plot\u ggplot

如何测试是否打印了ggplot? 让我们考虑非常基本的函数: plot_ggplot <- function() { print(ggplot() + aes(x = 1:100, y = 1:100) + geom_point()) } plot\u ggplot,r,unit-testing,ggplot2,testthat,R,Unit Testing,Ggplot2,Testthat,一种可能是将设备捕获为光栅,并检查所有值是否为白色,但我不知道设备在测试环境中如何工作。您还必须在每次打印后dev.off()并重新启动cap2 第[1]章虚假 由(v0.3.0)于2021-01-29创建 编辑:您可能可以将重置作为has_printed()函数的一部分进行自动化,但您必须小心超级分配(这里是龙) 库(ggplot2) cap一种可能是将设备捕获为光栅,并检查所有值是否为白色,但我不知道设备在测试环境中如何工作。您还必须在每次打印后dev.off()并重新启动cap2 第[1

一种可能是将设备捕获为光栅,并检查所有值是否为白色,但我不知道设备在测试环境中如何工作。您还必须在每次打印后
dev.off()
并重新启动
cap2
第[1]章虚假
由(v0.3.0)于2021-01-29创建

编辑:您可能可以将重置作为
has_printed()
函数的一部分进行自动化,但您必须小心超级分配(这里是龙)

库(ggplot2)

cap一种可能是将设备捕获为光栅,并检查所有值是否为白色,但我不知道设备在测试环境中如何工作。您还必须在每次打印后
dev.off()
并重新启动
cap2
第[1]章虚假
由(v0.3.0)于2021-01-29创建

编辑:您可能可以将重置作为
has_printed()
函数的一部分进行自动化,但您必须小心超级分配(这里是龙)

库(ggplot2)
cap帮助中的“测试ggplot2输出”部分是否存在?帮助中的“测试ggplot2输出”部分是否存在?