tests/devIsInteractive.R

In HenrikBengtsson/R.devices: Unified Handling of Graphics Devices

message("*** devIsInteractive() ...")

library("R.devices")

types <- list(c(), "png", "x11", c("png", "jpeg", "png", "x11"), x11, png)
for (types in types) {
  print(types)
  res <- devIsInteractive(types)
  print(res)
  stopifnot(is.logical(res))
  stopifnot(is.character(names(res)))
  stopifnot(length(res) == length(types))
  if (is.character(types)) stopifnot(all(names(res) == types))
}

message("*** devIsInteractive() ... DONE")