test(view_spatial)

dimfalk · Mar 6, 2024 · 9e98c15 · 9e98c15
1 parent cf57085
commit 9e98c15
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/tests/testthat/test-view_spatial.R b/tests/testthat/test-view_spatial.R
@@ -17,13 +17,11 @@ test_that("Output class is as expected.", {
     webshot::install_phantomjs()
   }
 
-  filename <- "kostra2010R_49011.png"
+  filename <- tempfile(fileext = ".png")
 
   m3 <- view_spatial("49011", file = filename)
 
   expect_s3_class(m3, c("leaflet", "htmlwidget"))
 
   expect_true(file.exists(filename))
-
-  unlink(filename)
 })