(define-module (gnu services science)
  #:export (<rshiny-configuration>
            rshiny-configuration
            rshiny-configuration?
            rshiny-configuration-package
            rshiny-configuration-binary
            rshiny-shepherd-service
            rshiny-service-type))

(use-modules (gnu)
             (guix records)
             (ice-9 match))
(use-service-modules shepherd)
(use-package-modules cran)

(define-record-type* <rshiny-configuration>
  rshiny-configuration
  make-rshiny-configuration
  rshiny-configuration?
  (package          rshiny-configuration-package    ; package
                    (default r-shiny))
  (binary           rshiny-configuration-binary     ; string
                    (default "rshiny")))

(define rshiny-shepherd-service
  (match-lambda
    (($ <rshiny-configuration> package binary)
     (list
       (shepherd-service
         (documentation (string-append "R-Shiny service for " binary))
         (provision (list (symbol-append 'rshiny- (string->symbol
                                                 </td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=90fe8797cda18b123a1b28c9cad7c03673afe5dd'>refs</a><a href='/guix/log/gnu/packages/cryptsetup.scm'>log</a><a class='active' href='/guix/tree/gnu/packages/cryptsetup.scm?id=90fe8797cda18b123a1b28c9cad7c03673afe5dd'>tree</a><a href='/guix/commit/gnu/packages/cryptsetup.scm?id=90fe8797cda18b123a1b28c9cad7c03673afe5dd'>commit</a><a href='/guix/diff/gnu/packages/cryptsetup.scm?id=90fe8797cda18b123a1b28c9cad7c03673afe5dd'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/cryptsetup.scm'>
<input type='hidden' name='id' value='90fe8797cda18b123a1b28c9cad7c03673afe5dd'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class=