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