mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-21 01:26:43 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: r-radiant-data: Update to 1.6.3.

Browse source 
* gnu/packages/cran.scm (r-radiant-data): Update to 1.6.3.
[source]: Do not delete help files, because they are now under CC-BY-SA.
[arguments]: Simplify by using minify-build-system.

Change-Id: Ic4a2bdd3a8df9f27d703505eaeba080e28982c80
This commit is contained in:
Ricardo Wurmus 2023-12-28 00:29:00 +01:00
parent ffa5bec664
commit 8c7904e424
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 16 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/cran.scm
View file

@ -11627,44 +11627,35 @@ (define-public r-baseline
(define-public r-radiant-data (define-public r-radiant-data
(package (package
(name "r-radiant-data") (name "r-radiant-data")
(version "1.6.2") (version "1.6.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "radiant.data" version)) (uri (cran-uri "radiant.data" version))
(sha256 (sha256
(base32 (base32
"0227ry366v9kmksa4vyjmhix0jbl894gdc6gckg209wna35fn20p")) "1nwiw5dps0030f893gs0fixis6xigfr8y8rqhi3l505yx2bsrjbj"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(delete-file "inst/assets/html2canvas/html2canvas.min.js"))))
;; Delete files that are under CC-NC-SA.
(delete-file-recursively "inst/app/tools/help")
(delete-file "inst/assets/html2canvas/html2canvas.min.js")))))
(properties `((upstream-name . "radiant.data"))) (properties `((upstream-name . "radiant.data")))
(build-system r-build-system) (build-system r-build-system)
(arguments (arguments
(list (list
#:modules '((guix build utils) #:modules
(guix build r-build-system) '((guix build r-build-system)
(srfi srfi-1)) (guix build minify-build-system)
(guix build utils))
#:imported-modules
`(,@%r-build-system-modules
(guix build minify-build-system))
#:phases #:phases
'(modify-phases %standard-phases #~(modify-phases (@ (guix build r-build-system) %standard-phases)
(add-after 'unpack 'process-javascript (add-after 'unpack 'process-javascript
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "inst/assets/html2canvas/" (with-directory-excursion "inst/assets/html2canvas/"
(call-with-values (minify (assoc-ref inputs "_")
(lambda () #:target "html2canvas.min.js")))))))
(unzip2
`((,(assoc-ref inputs "_")
"html2canvas.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)))))))))
(propagated-inputs (propagated-inputs
(list r-arrow (list r-arrow
r-base64enc r-base64enc