From 0a239e32c6db1b95843eb9e120eaa6bb3b4c862d Mon Sep 17 00:00:00 2001
From: pjotrp
Date: Thu, 21 Sep 2017 14:36:08 +0000
Subject: python-rserve added

---
 gn/packages/book_evolutionary_genomics.scm | 18 +++++++++++------
 gn/packages/python.scm                     | 32 ++++++++++++++++++++++++++++++
 2 files changed, 44 insertions(+), 6 deletions(-)

diff --git a/gn/packages/book_evolutionary_genomics.scm b/gn/packages/book_evolutionary_genomics.scm
index dca4350..e3bb84a 100644
--- a/gn/packages/book_evolutionary_genomics.scm
+++ b/gn/packages/book_evolutionary_genomics.scm
@@ -33,7 +33,7 @@
 
   #:use-module (gn packages bioinformatics)
   #:use-module (gn packages javascript)
-  ; #:use-module (gn packages python)
+  #:use-module (gn packages python)
   ; #:use-module (gn packages statistics)
   #:use-module (srfi srfi-1))
 
@@ -90,10 +90,7 @@
         (base32
          "1dncwiyhy1s1pimb6f2dzs3ivahah5id3chw4r10j92754bxmrn2"))))
     (propagated-inputs
-     `(
-       ; ("python" ,python)
-       ("r" ,r)
-       ))
+     `(("r" ,r)))
     (inputs `(("zlib" ,zlib)
               ("openssl" ,openssl)))
 
@@ -101,7 +98,14 @@
     (home-page "https://github.com/s-u/Rserve")
     (synopsis "Fast, flexible and powerful server providing access to R from many languages and systems http://RForge.net/Rserve")
     (description
-     ".")
+     "Rserve acts as a socket server (TCP/IP or local sockets) which
+allows binary requests to be sent to R. Every connection has a
+separate workspace and working directory. Client-side implementations
+are available for popular languages such as C/C++ and Java, allowing
+any application to use facilities of R without the need of linking to
+R code. Rserve supports remote connection, user authentication and
+file transfer. A simple R client is included in this package as
+well.")
     (license license:gpl2)))
 
 (define-public book-evolutionary-genomics
@@ -121,6 +125,8 @@
                      ("source" ,source)))
     (propagated-inputs
      `(("python" ,python)
+       ("python-biopython" ,python-biopython)
+       ("python-rserve" ,python-rserve)
        ("r" ,r)
        ("r-gener" ,r-gener)
        ("r-biostrings" ,r-biostrings)
diff --git a/gn/packages/python.scm b/gn/packages/python.scm
index a045724..9bdb1ca 100644
--- a/gn/packages/python.scm
+++ b/gn/packages/python.scm
@@ -148,6 +148,38 @@ powerful language for representing information.")
         `(#:python ,python-2
           #:tests? #f))))) ; 3 tests fail, also outside Guix
 
+(define-public python-rserve
+  (package
+   (name "python-rserve")
+   (version "0.91")
+   (source
+    (origin
+     (method url-fetch)
+                                        ; https://pypi.python.org/packages/27/e8/b23e0e3d38dadc721947bc9f4b6f1b3e5e1e6c26ac67d8ad88376c5555a0/pyRserve-0.9.1.tar.gz#md5=6da1978f908dd7bdc2d22ee5c29238c0
+     (uri (string-append
+           "https://pypi.python.org/packages/27/e8/b23e0e3d38dadc721947bc9f4b6f1b3e5e1e6c26ac67d8ad88376c5555a0/pyRserve-0.9.1.tar.gz"))
+     (sha256
+      (base32
+       "162dg7d0ni035b75qskrjdzd1yyxwnvybcv115aiapcvyfw2vbsm"))))
+   (build-system python-build-system)
+   (propagated-inputs
+    `(
+      ("python-numpy" ,python-numpy)
+      ))
+   (inputs
+    `(("python-setuptools" ,python-setuptools)
+      ("python-pytest" ,python-pytest)
+      ))
+   (home-page "https://pypi.python.org/pypi/pyRserve")
+   (synopsis
+    "RServe.")
+   (description
+    ".")
+   (license license:expat)))
+
+(define-public python2-rserve
+  (package-with-python2 python-rserve))
+
 (define-public python-avro ; guix ready - used by CWL
 (package
   (name "python-avro")
-- 
cgit v1.2.3