Merge branch 'master' into devel

runme

@@ -10,14 +10,18 @@ if (nthreads > 1L) plan("multisession",workers=nthreads)
 library(shinyscreen)
 carg = commandArgs(trailingOnly=T)
 eo = init(metfrag_db_dir=mf_db_dir)
-if (carg[[1]]=="app") {
-    app(envopts=eo,shiny_args=list(launch.browser=F,port=5432))
-} else if (carg[[1]]=="serve") {
-    serve(envopts=eo,user=user,port=5432)
-} else if (carg[[1]]=="test") {
-    setwd("/home/ssuser/shinyscreen")
-    devtools::load_all()
-    devtools::test()
+if (length(carg)>1L) {
+    if (carg[[1]]=="app") {
+        app(envopts=eo,shiny_args=list(launch.browser=F,port=5432))
+    } else if (carg[[1]]=="serve") {
+        serve(envopts=eo,user=user,port=5432)
+    } else if (carg[[1]]=="test") {
+        setwd("/home/ssuser/shinyscreen")
+        devtools::load_all()
+        devtools::test()
+    } else {
+        stop("Argument should be either `app', `test', or `serve'")
+    }
 } else {
-    stop("Argument should be either `app', `test', or `serve'")
+    app(envopts=eo,shiny_args=list(launch.browser=F,port=5432))
 }