R Under development (unstable) (2025-02-20 r87772 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> library(xdvir)
            TeX:  C:\PROGRA~1\MiKTeX\miktex\bin\x64\latex.exe
          xetex:  MiKTeX-XeTeX 4.9 (MiKTeX 23.1)
         luatex:  This is LuaTeX, Version 1.16.0 (MiKTeX 23.1)
luaotfload-tool:  3.23
> 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()
null device 
          1 
> 
> 
> 
> proc.time()
   user  system elapsed 
   0.53    0.10   10.89