From e53dad9570d9f96bfef5272d9b19797b5683093c Mon Sep 17 00:00:00 2001
From: jwildfire <jwildfire@gmail.com>
Date: Thu, 28 Feb 2019 09:44:58 -0800
Subject: [PATCH 1/2] tweak size option. fix #203

---
 R/safetyGraphicsApp.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/R/safetyGraphicsApp.R b/R/safetyGraphicsApp.R
index e62a7731..7cd9301a 100644
--- a/R/safetyGraphicsApp.R
+++ b/R/safetyGraphicsApp.R
@@ -13,9 +13,11 @@
 #'
 #' @export
 #'
-safetyGraphicsApp <- function(maxFileSize = 20) {
+safetyGraphicsApp <- function(maxFileSize = NULL) {
   #increase maximum file upload limit
-  options(shiny.maxRequestSize=(maxFileSize*1024^2))
+  if(!is.null(maxFileSize)){
+    options(shiny.maxRequestSize=(maxFileSize*1024^2))  
+  }
   
   path <- system.file("eDISH_app", package = "safetyGraphics")
   shiny::runApp(path, launch.browser = TRUE)

From 26ee995317bfd72f6986502c1b9b27ace620bc17 Mon Sep 17 00:00:00 2001
From: jwildfire <jwildfire@gmail.com>
Date: Thu, 28 Feb 2019 10:06:33 -0800
Subject: [PATCH 2/2] update docs

---
 man/safetyGraphicsApp.Rd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/man/safetyGraphicsApp.Rd b/man/safetyGraphicsApp.Rd
index 6f75fba1..f6ed62e0 100644
--- a/man/safetyGraphicsApp.Rd
+++ b/man/safetyGraphicsApp.Rd
@@ -4,7 +4,7 @@
 \alias{safetyGraphicsApp}
 \title{Run the interactive safety graphics builder}
 \usage{
-safetyGraphicsApp(maxFileSize = 20)
+safetyGraphicsApp(maxFileSize = NULL)
 }
 \arguments{
 \item{maxFileSize}{maximum file size in MB allowed for file upload.}