tests/Plot2Test/Plot2Test.R

In ProvTools/provR: Provenance Capture Package

# Test creating and closing a graphics device
# Also testing dev.off as last line of function
f1 <- function() {
  nums <- c(1, 3, 6, 4, 9)
  pdf("nums.pdf")
  plot(nums)
  dev.off()
}

f1()

# Test closing a graphics device that was not opened.
# Also testing dev.off not as last line of function.
# Note that this test works fine when run from RStudio,
# but it does not work when run as from the test script
# which uses the R command line.  I think the issue is
# that there is no place for the plot to be drawn since 
# the RStudio plot panel does not exist.
# f2 <- function() {
#   nums <- c(1, 2, 4, 6, 8, 10)
#   plot(nums)
#   dev.off()
#   return (1)
# }
# 
# f2()

# Test graphic output where the device is neither opened
# nor explicitly closed.
# This test has the same problem as f2
# f3 <- function() {
#   nums <- c(10, 9, 8, 7)
#   plot(nums)
# }
# 
# f3()