R/pdf.figure.proof.R

In c97sr/SRileyIDD: A holding package for Steven Riley's modelling and analysis code

# Copyright Steven Riley 2014.
#
# This file is part of the R package strider.
# 
# Strider is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# 
# Strider is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.

# A function to setup a clean pdf file for a single subplot
pdf.figure.proof <-
function(findex=1,file=paste("./pdf_sub_",findex,".pdf",sep=""),pw=7,ph=7,textscale=0.6,xpd=NA) {
	plotwidth <- pw/cm(1)
	plotheight <- ph/cm(1)
	margin <- 5/cm(1)
	pdfwidth <- plotwidth+2*margin
	pdfheight <- plotheight+2*margin
	posplot = c(
			margin/pdfwidth,
			(margin+plotwidth)/pdfwidth,
			margin/pdfheight,
			(margin+plotheight)/pdfheight
	)
	pdf(file=file,height=pdfheight,width=pdfwidth,useDingbats=FALSE)
	par(
			cex=textscale,
			fig=posplot,
			mai=c(0,0,0,0),
			xpd=xpd)
}