gnu: r-radiant-data: Update to 1.6.3.
* 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:
		
							parent
							
								
									ffa5bec664
								
							
						
					
					
						commit
						8c7904e424
					
				
					 1 changed files with 16 additions and 25 deletions
				
			
		| 
						 | 
				
			
			@ -11627,44 +11627,35 @@ local smoothers and many more.")
 | 
			
		|||
(define-public r-radiant-data
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-radiant-data")
 | 
			
		||||
    (version "1.6.2")
 | 
			
		||||
    (version "1.6.3")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (cran-uri "radiant.data" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "0227ry366v9kmksa4vyjmhix0jbl894gdc6gckg209wna35fn20p"))
 | 
			
		||||
         "1nwiw5dps0030f893gs0fixis6xigfr8y8rqhi3l505yx2bsrjbj"))
 | 
			
		||||
       (modules '((guix build utils)))
 | 
			
		||||
       (snippet
 | 
			
		||||
        '(begin
 | 
			
		||||
           ;; Delete files that are under CC-NC-SA.
 | 
			
		||||
           (delete-file-recursively "inst/app/tools/help")
 | 
			
		||||
           (delete-file "inst/assets/html2canvas/html2canvas.min.js")))))
 | 
			
		||||
        '(delete-file "inst/assets/html2canvas/html2canvas.min.js"))))
 | 
			
		||||
    (properties `((upstream-name . "radiant.data")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:modules '((guix build utils)
 | 
			
		||||
                  (guix build r-build-system)
 | 
			
		||||
                  (srfi srfi-1))
 | 
			
		||||
      #:modules
 | 
			
		||||
      '((guix build r-build-system)
 | 
			
		||||
        (guix build minify-build-system)
 | 
			
		||||
        (guix build utils))
 | 
			
		||||
      #: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)
 | 
			
		||||
              (with-directory-excursion "inst/assets/html2canvas/"
 | 
			
		||||
               (call-with-values
 | 
			
		||||
                   (lambda ()
 | 
			
		||||
                     (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)))))))))
 | 
			
		||||
                (minify (assoc-ref inputs "_")
 | 
			
		||||
                        #:target "html2canvas.min.js")))))))
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list r-arrow
 | 
			
		||||
           r-base64enc
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue