etc/tikz-text-bounding-box-simple.R

In directlabels: Direct labels for multicolor plots in lattice or ggplot2

library(tikzDevice)
library(grid)
tikz("test.tex",1,1,standAlone=TRUE)
s <- "$\\hat\\lambda$"

grid.newpage()
grid.text(s,0,0,hjust=0,vjust=0)
x <- stringWidth(s)
## the magic number 1.4 gets the hat in the box.
y <- stringHeight(s) * 1.4
grid.rect(0,0,x,y,hjust=0,vjust=0)

dev.off()
system("pdflatex test && evince test.pdf")