devIsOpen | R Documentation |
Checks if zero or more devices are open or not.
devIsOpen(which=dev.cur(), ...)
which |
An index ( |
... |
Not used. |
Returns a named logical
vector
with TRUE
if a device is open,
otherwise FALSE
.
Henrik Bengtsson
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # Use devices for conditional processing of code. # Close devices to rerun code. # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - cat("Currently opened device:\n") 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, "\n") plot(1:10) } cat("Currently opened device:\n") print(devList()) if (!devIsOpen(fig <- fig + 1)) { devSet(fig) cat("Figure", fig, "\n") plot(1:10) } cat("Currently opened device:\n") print(devList()) # Alt B: Use device labels if (!devIsOpen(label <- "part 1")) { devSet(label) cat("Part 1\n") plot(1:10) } cat("Currently opened device:\n") print(devList()) if (!devIsOpen(label <- "part 2")) { devSet(label) cat("Part 2\n") plot(1:10) } cat("Currently opened device:\n") print(devList())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.