(define-module (vkraus packages strats)
  #:use-module (guix packages)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix gexp)
  #:use-module (guix modules)
  #:use-module (guix build-system r)
  #:use-module (guix build-system copy)
  #:use-module (guix build-system trivial)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages statistics)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages cran)
  #:use-module (gnu packages emacs)
  #:use-module (gnu packages emacs-xyz)
  #:use-module (gnu packages tex)
  #:use-module (ice-9 receive))

(define-public r-strats
  (package
   (name "r-strats")
   (version "0.0.0")
   (source
    (origin
     (method git-fetch)
     (uri (git-reference
	   (url "https://labo.planete-kraus.eu/strats.git")
	   (commit "300e83ef6a7f2da9fca6e0d87a387aeee2cd6392")))
     (sha256 (base32 "0glbqvssvp0mg3zb9fvl9ddibnsvnbdaiq44jixwdw6phyc57dp5"))))
   (build-system r-build-system)
   (arguments
    `(#:phases
      (modify-phases
       %standard-phases
       (add-after
	'unpack 'run-roxygen
	(lambda* (#:key inputs #:allow-other-keys)
          (setenv "TZ" "UTC+1")
          (setenv "TZDIR"
                  (string-append (assoc-ref inputs "tzdata")
                                 "/share/zoneinfo"))
	  (mkdir ".git")
	  (call-with-output-file ".tarball-version"
	    (lambda (port)
	      (display ,version port)))
	  (invoke "Rscript" "./bootstrap")
	  #t))
       (add-after
	'install 'wrap-scripts
	(lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
	  (let* ((out (assoc-ref outputs "out"))
		 (r-libs-site
		  (getenv "R_LIBS_SITE"))
		 (tzdata (assoc-ref inputs "tzdata")))
	    (mkdir (format #f "~a/bin" out))
	    (wrap-program
	     (format #f "~a/site-library/strats/bin/strats" out)
	     `("R_LIBS_SITE" ":" = (,r-libs-site))
	     `("TZDIR" ":" = (,(format #f "~a/share/zoneinfo" tzdata))))
	    (rename-file
	     (format #f "~a/site-library/strats/bin/strats" out)
	     (format #f "~a/bin/strats" out)))
	  #t)))))
   (native-inputs
    `(("r" ,r)
      ("r-devtools" ,r-devtools)))
   (inputs
    `(("tzdata" ,tzdata)))
   (propagated-inputs
    `(("r" ,r)
      ("r-magrittr" ,r-magrittr)
      ("r-dplyr" ,r-dplyr)
      ("r-readr" ,r-readr)
      ("r-tibble" ,r-tibble)))
   (synopsis "Semi-supervised Transductive Residual Analysis of Time Series")
   (description "Implementation of for anomaly detection.")
   (home-page "https://labo.planete-kraus.eu/strats.git")
   (license ((@@ (guix licenses) license) "no" "no" "no"))))