making the shiny appDir directly deployable fix #240

sdcTools · Nov 29, 2017 · 4aaf184 · 4aaf184
1 parent d3bc217
commit 4aaf184
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,8 +2,8 @@ Package: sdcMicro
 Type: Package
 Title: Statistical Disclosure Control Methods for Anonymization of Microdata and
     Risk Estimation
-Version: 5.0.4
-Date: 2017-10-19
+Version: 5.0.5
+Date: 2017-11-29
 Author: Matthias Templ, Alexander Kowarik, Bernhard Meindl
 Maintainer: Matthias Templ <matthias.templ@gmail.com>
 Description: Data from statistical agencies and other institutions are mostly

diff --git a/inst/shiny/sdcApp/global.R b/inst/shiny/sdcApp/global.R
@@ -6,6 +6,20 @@ library(haven)
 library(DT)
 library(shinyBS)
 library(data.table)
+
+if (sys.calls()[[1]]!="sdcApp()") {### Beginning required code for deployment
+  .startdir <- .guitheme <- .guijsfile <- NULL
+  maxRequestSize <- 50
+  options(shiny.maxRequestSize=ceiling(maxRequestSize)*1024^2)
+
+  .GlobalEnv$.startdir <- getwd()
+
+  theme="IHSN"
+  .GlobalEnv$.guitheme <- "ihsn-root.css"
+  .GlobalEnv$.guijsfile <- "js/ihsn-style.js"
+}## End of deployment code
+
+
 # required that 'dQuote()' works nicely when
 # outputting R-Code
 options(useFancyQuotes=FALSE)