fixed system dependency in test

pepijn-devries · Jul 28, 2024 · 77d8c58 · 77d8c58
1 parent 08a4f71
commit 77d8c58
Showing 1 changed file with 6 additions and 10 deletions.
diff --git a/tests/testthat/test_plots.r b/tests/testthat/test_plots.r
@@ -65,32 +65,29 @@ test_that(
   "Negative radii throws error in continuous scales", {
     expect_error({
       on.exit({grDevices::dev.off(); closeAllConnections()})
-      dat <- raw()
-      con <- rawConnection(dat, "w")
+      f <- tempfile(fileext = ".pdf")
       p <- ggplot() +
         geom_stars(data = sw_sub) +
         geom_fields(data = sw_sub,
                     aes(angle = as.numeric(atan2(vo, uo)),
                         radius = -as.numeric(pythagoras(uo, vo))))
-      grDevices::png(con)
+      grDevices::pdf(f)
       print(p) |> suppressMessages()
-      close(con)
     })
   })
 
 test_that(
   "Binned scales work without error", {
     expect_no_error({
       on.exit({grDevices::dev.off(); closeAllConnections()})
-      dat <- raw()
-      con <- rawConnection(dat, "w")
+      f <- tempfile(fileext = ".pdf")
       p <- ggplot() +
         geom_stars(data = sw_sub) +
         geom_fields(data = sw_sub,
                     aes(angle = as.numeric(atan2(vo, uo)),
                         radius = as.numeric(pythagoras(uo, vo)))) +
         scale_radius_binned()
-      grDevices::png(con)
+      grDevices::pdf(f)
       print(p) |> suppressMessages()
     })
   })
@@ -99,15 +96,14 @@ test_that(
   "Discrete scales work without error", {
     expect_no_error({
       on.exit({grDevices::dev.off(); closeAllConnections()})
-      dat <- raw()
-      con <- rawConnection(dat, "w")
+      f <- tempfile(fileext = ".pdf")
       p <- ggplot() +
         geom_stars(data = sw_sub) +
         annotation_fields(data = sw_sub,
                           aes(angle = as.numeric(atan2(vo, uo)),
                               radius = cut(as.numeric(pythagoras(uo, vo)), 3))) +
         scale_radius_discrete()
-      grDevices::png(con)
+      grDevices::pdf(f)
       print(p) |> suppressMessages()
     })
   })