message("*** capabilitiesX11() ...")
res <- R.devices::capabilitiesX11()
print(res)
res2 <- R.devices::capabilitiesX11()
stopifnot(identical(res2, res))
res3 <- R.devices::capabilitiesX11(reset=TRUE)
print(res3)
message("*** capabilitiesX11() ... DONE")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.