diff --git a/R/shinyUI.R b/R/shinyUI.R
index 589662f85ccfc9ff885004f24f21a67eda9d3800..021a85c732cd3b3f3471ad9225e05d2dde51de03 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)
+    }
 }