flubber <- Type1Font("flubber", 
                     rep(file.path(getwd(), "Type1", 
                                   "flubber.afm"), 4),
                     encoding="WinAnsi.enc")
pdfFonts(flubber=flubber)
pdf("flubber.pdf", width=4.5, height=.5)
grid.rect(gp=gpar(col="gray"))
grid.text("hello", gp=gpar(fontfamily="flubber"))
dev.off()
embedFonts("flubber.pdf", outfile="flubber-embedded.pdf", 
           fontpaths=file.path(getwd(), "Type1"))