.onLoad <- function(libname, pkgname) {
use_rgl_null <- isTRUE(!capabilities()[["X11"]])
if (use_rgl_null) Sys.setenv(RGL_USE_NULL=TRUE)
invisible()
}
.onAttach <- function(libname, pkgname) {
use_rgl_null <- isTRUE(!capabilities()[["X11"]])
if (use_rgl_null) Sys.setenv(RGL_USE_NULL=TRUE)
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.