R/x11Tools.R

In robertdouglasmorrison/DuffyTools: Duffy Lab Utility Tools

# x11Tools.R --  routines that deal with X11 graphics


`checkX11` <- function( bg='white', type="dbcairo", width=10, height=7, ...) {

	curDevName <- names( dev.cur())

	# Support for X11 is not needed when running inside a Rstudio session
	if ( is.Rstudio()) return( curDevName)

	if ( regexpr( "X11", curDevName) < 1) {
		# current device is not X11
		X11( type=type, bg=bg, width=width, height=height, ...)
		curDevName <- names( dev.cur())
	}
	curDevName
}