diff options
author | Efraim Flashner | 2020-03-05 14:52:47 +0000 |
---|---|---|
committer | Shepherd | 2020-03-05 14:52:47 +0000 |
commit | 18f77179e74ea28a0eb2c9527350627e00a11139 (patch) | |
tree | cef615332424d4aa4092f79a7971614b5414ac4d | |
parent | fea8ff6ba673decf3fd1e722495cb5f1e4bb92f1 (diff) | |
download | gn-shepherd-services-18f77179e74ea28a0eb2c9527350627e00a11139.tar.gz |
shepherd: add singlecellrshiny
-rw-r--r-- | shepherd/init.d/singlecell.scm | 13 | ||||
-rw-r--r-- | shepherd/init.d/test-upgrade.scm | 3 |
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"))) |