[Debian-med-packaging] Bug#867963: symlinks to bootstrap.min and jquery.min do not work

[Don Armstrong]

Package: r-cran-shiny
Severity: normal
Control: tag -1 patch

resolve() (utils.R) will not resolve paths which aren't subdirectories
of www/shared, which breaks the inclusion of CSS, etc. by default.

The attached hack fixes this; perhaps upstream may want to make a more
general method to make resolve() more granular, but for the time being,
this should work.

-- 
Don Armstrong                      https://www.donarmstrong.com

If a nation values anything more than freedom, it will lose its
freedom; and the irony of it is that if it is comfort or money it
values more, it will lose that, too.
 -- W. Somerset Maugham
-------------- next part --------------
Description: Hack for symlinks to twitter-bootstrap and javascript
 Also allow serving /usr/share/javascript and
 /usr/share/twitter-boostrap/ from shiny apps by default
Author: Don Armstrong <don at debian.org>
Origin: vendor
Bug-Debian: unfiled
Forwarded: not-needed
Last-Update: 2017-07-10
---
This patch header follows DEP-3: http://dep.debian.net/deps/dep3/
--- a/R/utils.R
+++ b/R/utils.R
@@ -298,6 +298,12 @@
   dir <- normalizePath(dir, winslash='/', mustWork=TRUE)
   # trim the possible trailing slash under Windows (#306)
   if (isWindows()) dir <- sub('/$', '', dir)
+  ## Debian specific hack for /usr/share/javascript symlinks
+  if (substr(abs.path,1,nchar('/usr/share/javascript/'))=='/usr/share/javascript/')
+      return(abs.path)
+  ## Debian specific hack for /usr/share/twitter-bootstrap symlinks
+  if (substr(abs.path,1,nchar('/usr/share/twitter-bootstrap/'))=='/usr/share/twitter-bootstrap/')
+      return(abs.path)
   if (nchar(abs.path) <= nchar(dir) + 1)
     return(NULL)
   if (substr(abs.path, 1, nchar(dir)) != dir ||