Nothing
message("*** devListIndexOf() ...")
library("R.devices")
.devListIndexOf <- R.devices:::.devListIndexOf
labels <- list(character(0L), "Device 1", c("Device 1", "Device 1"), c("Device 1", "FooBar"))
for (label in labels) {
res <- .devListIndexOf(label, error=FALSE)
print(res)
stopifnot(is.integer(res))
stopifnot(is.character(names(res)))
}
message("*** devListIndexOf() ... DONE")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.