Add package definition

2 files changed, 87 insertions, 0 deletions

diff --git a/.guix-channel b/.guix-channel
new file mode 100644
index 0000000..8e7197b
--- /dev/null
+++ b/.guix-channel
@@ -0,0 +1,6 @@
+(channel
+ (version 0)
+ (directory "guix"))
+;; Local Variables:
+;; mode: scheme
+;; End:
diff --git a/guix/vkraus/packages/strats.scm b/guix/vkraus/packages/strats.scm
new file mode 100644
index 0000000..972cb3b
--- /dev/null
+++ b/guix/vkraus/packages/strats.scm
@@ -0,0 +1,81 @@
+(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 "4e46ecea3230c3084a4240655c5b352027edc629")))
+     (sha256 (base32 "1g89w78mzrf7rlflc97fxm7k7ck6gl40j5d42x6pa1blmvwkwcvj"))))
+   (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-rsms-mt" ,rsms-mt)
+      ("r-magrittr" ,r-magrittr)
+      ("r-dplyr" ,r-dplyr)
+      ("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 'none)))