aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEfraim Flashner2020-03-05 14:52:47 +0000
committerShepherd2020-03-05 14:52:47 +0000
commit18f77179e74ea28a0eb2c9527350627e00a11139 (patch)
treecef615332424d4aa4092f79a7971614b5414ac4d
parentfea8ff6ba673decf3fd1e722495cb5f1e4bb92f1 (diff)
downloadgn-shepherd-services-18f77179e74ea28a0eb2c9527350627e00a11139.tar.gz
shepherd: add singlecellrshiny
-rw-r--r--shepherd/init.d/singlecell.scm13
-rw-r--r--shepherd/init.d/test-upgrade.scm3
2 files changed, 15 insertions, 1 deletions
diff --git a/shepherd/init.d/singlecell.scm b/shepherd/init.d/singlecell.scm
new file mode 100644
index 0000000..5492e31
--- /dev/null
+++ b/shepherd/init.d/singlecell.scm
@@ -0,0 +1,13 @@
+(define rn6app
+ (make <service>
+ #:provides '(singlecell)
+ #:docstring "Run Single Cell R-Shiny app"
+ #:start (make-forkexec-constructor
+ ;(system* "/var/guix/profiles/per-user/shepherd/current-guix/bin/guix" "environment" "--ad-hoc" "singlecellrshiny" "--" "sh" "-c" "\\'R_LIBS_USER=$GUIX_ENVIRONMENT/site-library/ singlecellrshiny\\'")
+ '("/home/shepherd/run_singlecell.sh")
+ #:log-file "/home/shepherd/logs/singlecell.log")
+ #:stop (make-kill-destructor)
+ #:respawn? #t))
+(register-services singlecell)
+
+;(start singlecell)
diff --git a/shepherd/init.d/test-upgrade.scm b/shepherd/init.d/test-upgrade.scm
index 0c17303..80ae7dc 100644
--- a/shepherd/init.d/test-upgrade.scm
+++ b/shepherd/init.d/test-upgrade.scm
@@ -6,7 +6,8 @@
;; First attempt to build all the packages and only afterward attempt to build the containers.
(when (zero? (system* "guix" "build" "-L" "/home/shepherd/guix-bioinformatics"
"--no-grafts" "bnw" "gitea" "go-ipfs" "edirect-gn"
- "bxd-power-calculator-app" "rn6-assembly-error-app"))
+ "bxd-power-calculator-app" "rn6-assembly-error-app"
+ "singlecellrshiny"))
(zero? (system* "guix" "system" "-L" "/home/shepherd/guix-bioinformatics"
"container" "/home/shepherd/guix-bioinformatics/gn/services/bnw-container.scm"
"--share=/home/shepherd/logs/bnw-server=/var/log" "--network")))