From 6e6fa954af3515c093821362450dc4e94db65ead Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 13 Dec 2019 15:22:30 +0100
Subject: [PATCH] gnu: r-shiny: Update to 1.4.0.

* gnu/packages/cran.scm (r-shiny): Update to 1.4.0.
[arguments]: Update list of JavaScript files to replace.
[propagated-inputs]: Add r-fastmap.
---
 gnu/packages/cran.scm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index de66afcabc..ad7cff55a5 100644
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -756,7 +756,7 @@ data structures in C++.")
 (define-public r-shiny
   (package
     (name "r-shiny")
-    (version "1.2.0")
+    (version "1.4.0")
     (source
      (origin
        (method git-fetch)
@@ -766,7 +766,7 @@ data structures in C++.")
        (file-name (git-file-name name version))
        (sha256
         (base32
-         "1kl3dh68h4cnrm3rqn9pddk5n6bsmr5x0626bkfv0qqi0q92zin4"))))
+         "17ac48g414h9dhi0k4wrah4gyik0q5r0xw3kc01c02qfjwimqsx7"))))
     (build-system r-build-system)
     (arguments
      `(#:modules ((guix build r-build-system)
@@ -795,7 +795,7 @@ data structures in C++.")
                                               "/share/javascript/html5shiv.min.js"))
                  (replace-file "json2-min.js"
                                (string-append (assoc-ref inputs "js-json2")
-                                              "/share/javascript/json2.min.js"))
+                                              "/share/javascript/json2-min.js"))
                  (replace-file "strftime/strftime-min.js"
                                (string-append (assoc-ref inputs "js-strftime")
                                               "/share/javascript/strftime.min.js"))
@@ -826,10 +826,15 @@ data structures in C++.")
                              ("shiny.js" .
                               "shiny.min.js")
                              ("jquery.js" .
-                              "jquery.min.js")))))
+                              "jquery.min.js")
+                             ("legacy/jquery.js" .
+                              "legacy/jquery.min.js")
+                             ("showdown/src/showdown.js" .
+                              "showdown/compressed/showdown.js")))))
              #t)))))
     (propagated-inputs
      `(("r-crayon" ,r-crayon)
+       ("r-fastmap" ,r-fastmap)
        ("r-httpuv" ,r-httpuv)
        ("r-mime" ,r-mime)
        ("r-jsonlite" ,r-jsonlite)