From ad799534f2f679ca3f9dbe5302615e1b50bc74bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Mon, 27 Apr 2020 09:14:39 +0200
Subject: [PATCH] R/shinyUI.R: Modify launch function
* R/shinyUI.R(launch): New arguments.
Added ability to launch in script mode (if GUI=F).
---
R/shinyUI.R | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/R/shinyUI.R b/R/shinyUI.R
index 589662f..021a85c 100644
--- a/R/shinyUI.R
+++ b/R/shinyUI.R
@@ -1895,7 +1895,14 @@ mk_shinyscreen <- function(fnStyle=system.file('www/custom.css',package = 'shiny
}
##' @export
-launch<-function(...) {
- app<-mk_shinyscreen()
- shiny::runApp(appDir = app,...)
+launch<-function(GUI=T,fnConf="",...) {
+ if (GUI) {
+ app<-mk_shinyscreen()
+ shiny::runApp(appDir = app,...)
+ } else {
+ if (nchar(fnConf)==0) {
+ fnConf <- commandArgs(trailingOnly=T)[[1]]
+ }
+ run(fnConf)
+ }
}
--
GitLab