02/39: gnu: r-reportingtools: Update to 2.42.3.

[guix-commits]

rekado pushed a commit to branch r-updates
in repository guix.

commit c5f25353462c8bf574e20bd874b38ccea584ec7a
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Fri Dec 15 17:25:58 2023 +0100

    gnu: r-reportingtools: Update to 2.42.3.
    
    * gnu/packages/bioconductor.scm (r-reportingtools): Update to 2.42.3.
    [source]: Adjust snippet.
    [arguments]: Use minify-build-system in 'process-javascript phase.
    [native-inputs]: Remove r-knitr; add r-rmarkdown.
    
    Change-Id: I1c00e1a1d8095f40da29b57b8e82de493fcff26e
---
 gnu/packages/bioconductor.scm | 37 +++++++++++++++----------------------
 1 file changed, 15 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index 79b94a9450..c60c51f34c 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -9837,18 +9837,16 @@ region sets and other genomic features.")
 (define-public r-reportingtools
   (package
     (name "r-reportingtools")
-    (version "2.39.0")
+    (version "2.42.3")
     (source
      (origin
        (method url-fetch)
        (uri (bioconductor-uri "ReportingTools" version))
        (sha256
         (base32
-         "15h7vqdxfv7y0f82ff7a8brqnscs324x22izlkgjk2wqahnmr2l1"))
+         "109vmrdsjdjnfrlcdyadzbwz9a50hqaahf7dawwxkbbh4mmdih78"))
        (snippet
-        '(for-each delete-file
-                   (list "inst/doc/jslib/jquery-1.8.0.min.js"
-                         "inst/extdata/jslib/jquery-1.8.0.min.js")))))
+        '(delete-file "inst/extdata/jslib/jquery-1.8.0.min.js"))))
     (properties
      `((upstream-name . "ReportingTools")))
     (build-system r-build-system)
@@ -9856,25 +9854,20 @@ region sets and other genomic features.")
      (list
       #:modules '((guix build utils)
                   (guix build r-build-system)
-                  (srfi srfi-1))
+                  (guix build minify-build-system)
+                  (ice-9 match))
+      #:imported-modules
+      `(,@%r-build-system-modules
+        (guix build minify-build-system))
       #:phases
-      '(modify-phases %standard-phases
+      '(modify-phases (@ (guix build r-build-system) %standard-phases)
          (add-after 'unpack 'process-javascript
            (lambda* (#:key inputs #:allow-other-keys)
-             (call-with-values
-                 (lambda ()
-                   (unzip2
-                    `((,(assoc-ref inputs "_")
-                       "inst/doc/jslib/jquery-1.8.0.min.js"))))
-               (lambda (sources targets)
-                 (for-each (lambda (source target)
-                             (format #true "Processing ~a --> ~a~%"
-                                     source target)
-                             (invoke "esbuild" source "--minify"
-                                     (string-append "--outfile=" target)))
-                           sources targets)))
-             (copy-file "inst/doc/jslib/jquery-1.8.0.min.js"
-                        "inst/extdata/jslib/jquery-1.8.0.min.js"))))))
+             (for-each (match-lambda
+                         ((source . target)
+                          (minify source #:target target)))
+                       `((,(assoc-ref inputs "_")
+                          . "inst/extdata/jslib/jquery-1.8.0.min.js"))))))))
     (propagated-inputs
      (list r-annotate
            r-annotationdbi
@@ -9896,7 +9889,7 @@ region sets and other genomic features.")
            r-r-utils
            r-xml))
     (native-inputs
-     (list esbuild r-knitr
+     (list esbuild r-rmarkdown
            (origin
              (method url-fetch)
              (uri "https://code.jquery.com/jquery-1.8.0.js";)