如何解决测试保存ggplots
我正在为ggplots创建一堆测试。我包括检查标签，输出对象是否为ggplot等内容。但是我不知道如何测试使用testthat和ggsave保存的绘图。你有什么想法吗？
解决方法
这是一种基于文件大小进行测试的方法。如果该文件不存在，则为NA，如果存在，则应为> 0。
library(testthat)
library(ggplot2)
test_that("plot is saved to file",{
file <- tempfile(fileext = ".png")
expect_equal(file.size(file),NA_real_)
plot <- ggplot(mtcars,aes(wt,mpg)) +
geom_point()
ggsave(file,plot,"png")
expect_true(file.size(file) > 0)
unlink(file)
})
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。