R Under development (unstable) (2025-02-18 r87748 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(grid)
> 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
> 
> ## Make debugging information available
> options(tinytex.verbose=TRUE, xdvir.quiet=FALSE)
> 
> fontpath <- system.file("Fonts", "Montserrat", package="xdvir")
> 
> tex <- paste0("\\setmainfont{Montserrat-Regular.ttf}",
+               ## On Windows, the path may contain ~
+               "[Path=", gsub("~", "\\\\string~", fontpath), "/]\n",
+               "This is a test")
> 
> ## Create .tex files within .Rcheck directory so that we can more easily
> ## debug problems (or return them as artifacts from github runners)
> texFile <- "test-fontspec.tex"
> 
> if (Sys.info()["sysname"] == "Darwin") {
+     png("fontspec-%02d.png", type="quartz")
+ } else {
+     ## "Windows" or "Linux"
+     png("fontspec-%02d.png", type="cairo")
+ }
> 
> if (xdvir:::haveTeX()) {
+     grid.newpage()
+     grid.latex(tex, packages=fontspecPackage(), texFile=texFile, gp=NULL)
+ }
> 
> dev.off()
null device 
          1 
> 
> proc.time()
   user  system elapsed 
   0.37    0.07   17.65