tests/devIsOpen.R

message("*** devIsOpen() ...")

library("R.devices")

for (which in list(c(), 1L, 1:5)) {
  print(which)
  res <- devIsOpen(which)
  print(res)
  stopifnot(is.logical(res))
  stopifnot(is.character(names(res)))
  stopifnot(length(res) == length(which))
}

message("*** devIsOpen() ... DONE")

Try the R.devices package in your browser

Any scripts or data that you put into this service are public.

R.devices documentation built on Oct. 30, 2019, 10:58 a.m.