devIsOpen

Checks if a device is open or not

Checks if a device is open or not.

Usage

devIsOpen(which=dev.cur(), ...)

Aliases

• devIsOpen

Examples

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# Use devices for conditional processing of code. 
# Close devices to rerun code.
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
cat("Currently opened device:
")
print(devList())

# Alt A: Use device index counter (starting with the 16:th)
fig <- 15
if (!devIsOpen(fig <- fig + 1)) {
  devSet(fig)
  cat("Figure", fig, "")
  plot(1:10)
}
cat("Currently opened device:
")
print(devList())

if (!devIsOpen(fig <- fig + 1)) {
  devSet(fig)
  cat("Figure", fig, "")
  plot(1:10)
}
cat("Currently opened device:
")
print(devList())

# Alt B: Use device labels
if (!devIsOpen(label <- "part 1")) {
  devSet(label)
  cat("Part 1
")
  plot(1:10)
}
cat("Currently opened device:
")
print(devList())


if (!devIsOpen(label <- "part 2")) {
  devSet(label)
  cat("Part 2
")
  plot(1:10)
}
cat("Currently opened device:
")
print(devList())