[Rd] R CMD check and postscript fonts

[Johannes Graumann]

Prof Brian Ripley <ripley <at> stats.ox.ac.uk> writes:

> 
> On Thu, 24 Jan 2008, Johannes Graumann wrote:
> 
> > Hello,
> > I came across this by using R cmd check - otherwise I would probably not have
> > noticed.
> > One of my functions does something like this:
> > # postscript()
> > # plot(1, xlim = c(0, 10), ylim = c(0, 4), type = "n", ann = FALSE, axes =
FALSE)
> > # text(1:10, 2, c("a","b"), cex = seqcex, family="mono",font=2)
> >
> > Which results in the error:
> > Error in text.default(1:10, 2, c("a", "b"), cex = seqcex, family = "mono",  :
> >  family 'mono' not included in PostScript device
> >
> > 'mono' is perfectly fine for my x11 device and
> > # postscriptFonts()$mono
> >
> > gives me:
> > $family
> > [1] "Courier"
> >
> > $metrics
> > [1] "Courier.afm"             "Courier-Bold.afm"
> > [3] "Courier-Oblique.afm"     "Courier-BoldOblique.afm"
> > [5] "Symbol.afm"
> >
> > $encoding
> > [1] "default"
> >
> > attr(,"class")
> > [1] "Type1Font"
> >
> > That looks all right to me no? How to remedy this?
> 
> Use the 'fonts' argument to postscript():
> 
Hmmm, my actual function contains this bit ... any idea on how to solve this as
generic as possible? I do not want to make this require or prevent postscript as
the dev, but make the test (postscript) pass and enable future use of postscript
... where to put the 'fonts' unobtrusively, so that other devs will still work?

Joh

vectorsequence <- c("A","B")
xreq <- length(vectorsequence)

par(mar=c(1, 1, 1, 1) + 0.1)
plot(1, xlim = c(0, xreq), ylim = c(0, 4), type = "n", ann = FALSE, axes = FALSE)
text(1:xreq, 2, vectorsequence, cex = 2.5, family="mono",font=2)