tests/size.R

In xdvir: Render 'LaTeX' in Plots

library(xdvir)
library(grid)

## Make debugging information available
options(tinytex.verbose=TRUE, xdvir.quiet=FALSE)

## Create .tex files within .Rcheck directory so that we can more easily
## debug problems (or return them as artifacts from github runners)
texFile <- "test-size.tex"

if (Sys.info()["sysname"] == "Darwin") {
    png("size-%02d.png", type="quartz")
} else {
    ## "Windows" or "Linux"
    png("size-%02d.png", type="cairo")
}

if (xdvir:::haveTeX()) {
    grid.newpage()
    x <- latexGrob("\\Huge test", texFile=texFile)
    grid.draw(x)
    grid.rect(width=grobWidth(x), height=grobHeight(x), gp=gpar(fill=NA))
    grid.circle(grobX(x, "west"), grobY(x, "west"), r=unit(1, "mm"),
                gp=gpar(fill="black"))
}

dev.off()