fix: ggplot2::ggsave

Author: dshemetov

tests/testthat/test-autoplot.R

@@ -18,15 +18,15 @@ test_that("autoplot snapshots", {
   wf <- epi_workflow(r, parsnip::linear_reg(), f) %>% fit(jhu)
   p <- autoplot(wf)
   withr::with_file("autoplot.png", {
-    ggsave("autoplot.png", p)
+    ggplot2::ggsave("autoplot.png", p)
     expect_snapshot_file("autoplot.png")
   })
 
   latest <- jhu %>% dplyr::filter(time_value >= max(time_value) - 14)
   preds <- predict(wf, latest)
   p <- autoplot(wf, preds, .max_facets = 4)
   withr::with_file("autoplot2.png", {
-    ggsave("autoplot2.png", p)
+    ggplot2::ggsave("autoplot2.png", p)
     expect_snapshot_file("autoplot2.png")
   })
 })