openGraphSaveGraph.R

# openGraphSaveGraph.R
# John K. Kruschke, January 29, 2013.

#==============================================================================
# Namespace-like method: http://stackoverflow.com/questions/1266279/#1319786
#==============================================================================

openGraphSaveGraph <- new.env()

#==============================================================================
# Functions
#==============================================================================

openGraphSaveGraph$openGraph <- function( width = 7 , height = 7 , mag = 1.0 , ... )
{
  if ( .Platform$OS.type != "windows" ) { # Mac OS, Linux
    X11( width = width*mag , height = height*mag , type = "cairo" , ... )
  } else { # Windows OS
    windows( width = width*mag , height = height*mag , ... )
  }
}

openGraphSaveGraph$saveGraph <- function( file = "saveGraphOutput" , type = "pdf" , ... )
{
  if ( .Platform$OS.type != "windows" ) { # Mac OS, Linux
    if ( any( type == c("png","jpeg","jpg","tiff","bmp")) ) {
      sptype <- type
      if ( type == "jpg" ) { sptype <- "jpeg" }
      savePlot( file = paste(file,".",type,sep = "") , type = sptype , ... )
    }
    if ( type == "pdf" ) {
      dev.copy2pdf(file = paste(file,".",type,sep = "") , ... )
    }
    if ( type == "eps" ) {
      dev.copy2eps(file = paste(file,".",type,sep = "") , ... )
    }
  } else { # Windows OS
    file <- paste(file,".",type,sep = "") # force explicit extension
    savePlot( file = file , type = type , ... )
  }
}

#==============================================================================
# Namespace-like method: http://stackoverflow.com/questions/1266279/#1319786
#==============================================================================

if ("openGraphSaveGraph" %in% search()) detach("openGraphSaveGraph")
attach(openGraphSaveGraph)  # subsequent additions not found, so attach at the end