create PRs automatically when new LaTeX packages need to be added to TinyTeX bundles

Author: yihui

.github/workflows/required-latex-pkgs.yaml

@@ -1,5 +1,3 @@
-# For help debugging build failures open an issue on the RStudio community with the 'github-actions' tag.
-# https://community.rstudio.com/new-topic?category=Package%20development&tags=github-actions
 on:
   push:
     branches: [main]
@@ -20,7 +18,6 @@ jobs:
 
     env:
       R_REMOTES_NO_ERRORS_FROM_WARNINGS: true
-      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
 
     steps:
       - uses: actions/checkout@v4
@@ -42,3 +39,11 @@ jobs:
 
       - name: Find required LateX packages
         run: Rscript tools/test-packages.R
+
+      - name: Create Pull Request
+        uses: peter-evans/create-pull-request@v5
+        with:
+          add-paths: |
+            R/platforms.R
+            tools/pkgs-custom.txt
+            tools/pkgs-yihui.txt

R/platforms.R

@@ -0,0 +1,6 @@
+# a copy of the returned result from tl_platform() is saved here because
+# tl_platforms() is a little slow and requires Internet connection
+.tl_platforms = c('aarch64-linux', 'amd64-freebsd', 'amd64-netbsd',
+  'armhf-linux', 'i386-freebsd', 'i386-linux', 'i386-netbsd', 'i386-solaris',
+  'universal-darwin', 'windows', 'x86_64-cygwin', 'x86_64-darwinlegacy',
+  'x86_64-linux', 'x86_64-linuxmusl', 'x86_64-solaris')

R/tlmgr.R

@@ -376,15 +376,6 @@ tl_platforms = function(print = FALSE) {
   } else x
 }
 
-# a copy of the returned result from tl_platform() is saved here because
-# tl_platform() is a little slow and requires Internet connection
-.tl_platforms = c(
-  'aarch64-linux', 'amd64-freebsd', 'amd64-netbsd', 'armhf-linux',
-  'i386-freebsd', 'i386-linux', 'i386-netbsd', 'i386-solaris', 'universal-darwin',
-  'windows', 'x86_64-cygwin', 'x86_64-darwinlegacy', 'x86_64-linux',
-  'x86_64-linuxmusl', 'x86_64-solaris'
-)
-
 # remove the platform suffixes from texlive package names, and optionally keep
 # the suffixes for certain platforms
 tl_names = function(x, platform = tl_platform()) {

tools/test-packages.R

@@ -4,6 +4,8 @@
 xfun::in_dir('..', xfun::install_dir('tinytex'))
 if (!tinytex:::tlmgr_available()) stop("tlmgr not available")
 
+system2('git', c('checkout', '--', '.'))  # drop changes if exist
+
 owd = setwd('tools')
 
 x0 = tinytex::tl_pkgs()  # packages from the minimal installation
@@ -35,30 +37,24 @@ x1 = sort(unique(c(
   'ec', 'inconsolata', 'times', 'tex', 'helvetic', 'dvips', 'metafont', 'mfware', 'xkeyval'
 )))
 tinytex::tlmgr_install(x1)
-x2 = sort(readLines('pkgs-custom.txt'))
-if (!identical(x1, x2)) stop(
-  'pkgs-custom.txt needs to be updated.\n\nPackages required are:\n',
-  paste(x1, collapse = '\n')
-)
+writeLines(x1, 'pkgs-custom.txt')
 
 # any new packages need to be added to pkgs-yihui.txt?
 tinytex::tlmgr_install(readLines('pkgs-yihui.txt'))
-x3 = tinytex::tl_pkgs()
 build_more = function() {
   render('test-basic.Rmd', 'beamer_presentation', quiet = TRUE)
   render('test-kableExtra.Rmd', quiet = TRUE)
 }
 build_more()
 # were there any new packages installed?
-x4 = tinytex::tl_pkgs()
-if (length(x5 <- setdiff(x4, x3))) stop(
-  'pkgs-yihui.txt needs to include:\n', paste(x5, collapse = '\n')
-)
+x2 = tinytex::tl_pkgs()
+writeLines(x2, 'pkgs-yihui.txt')
 
 setwd(owd)
 
-if (!identical(p1 <- tinytex:::tl_platforms(), p2 <- tinytex:::.tl_platforms)) stop(
-  'tl_platforms() returned: ', paste(p1, collapse = ', '),
-  '\n.tl_platforms returned ', paste(p2, collapse = ', '),
-  '\nThe latter needs to be updated in the tinytex package.'
-)
+p = tinytex:::tl_platforms()
+writeLines(c(
+  '# a copy of the returned result from tl_platform() is saved here because',
+  '# tl_platforms() is a little slow and requires Internet connection',
+  strwrap(sprintf('.tl_platforms = c(%s)', paste0("'", p, "'", collapse = ', ')), 80, exdent = 2)
+), 'R/platforms.R')