R Under development (unstable) (2026-02-16 r89426 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(ribiosPlot)
> 
> tempfile1 <- paste(tempfile(), ".pdf", sep="")
> openFileDevice(tempfile1)
> plot(rnorm(100), rnorm(100))
> dev.off()
null device 
          1 
> 
> tempfile2 <- paste(tempfile(), ".png", sep="")
> openFileDevice(tempfile2, width=5, height=5)
> plot(rnorm(100), rnorm(100))
> dev.off()
null device 
          1 
> 
> file.remove(tempfile1, tempfile2)
[1] TRUE TRUE
> 
> torture <- FALSE
> if(torture)  {
+   tempfile3 <- paste(tempfile(), ".tiff", sep="")
+   openFileDevice(tempfile3, width=5, height=5)
+   plot(rnorm(100), rnorm(100))
+   dev.off()
+   
+   tempfile3.var <- paste(tempfile(), ".tif", sep="")
+   openFileDevice(tempfile3.var, width=5, height=5)
+   plot(rnorm(100), rnorm(100))
+   dev.off()
+   
+   tempfile4 <- paste(tempfile(), ".bmp", sep="")
+   openFileDevice(tempfile4, width=5, height=5)
+   plot(rnorm(100), rnorm(100))
+   dev.off()
+   
+   tempfile5 <- paste(tempfile(), ".jpg", sep="")
+   openFileDevice(tempfile5, width=5, height=5)
+   plot(rnorm(100), rnorm(100))
+   dev.off()
+   
+   tempfile5.var <- paste(tempfile(), ".jpeg", sep="")
+   openFileDevice(tempfile5.var, width=5, height=5)
+   plot(rnorm(100), rnorm(100))
+   dev.off()
+ 
+   file.remove(tempfile3, tempfile3.var, tempfile4, tempfile5, tempfile5.var)
+ }
> 
> proc.time()
   user  system elapsed 
   1.31    0.18    1.50