R/api: serve: Fix top-level output directory creation.

DESCRIPTION

 Package: shinyscreen
 Title: Pre-screening of Mass Spectrometry Data 
-Version: 1.0.8
+Version: 1.0.9
 Author: Todor Kondić
 Maintainer: Todor Kondić <todor.kondic@uni.lu>
 Authors@R: 

R/api.R

@@ -787,6 +787,12 @@ app <- function(shiny_args=list(launch.browser=F),render_args=NULL,indir=getwd()
 serve <- function(indir,topuserdir,user,host='0.0.0.0',port=7777) {
     shiny_args <- c(list(launch.browser=F),list(host=host,port=port))
     userdir <- file.path(topuserdir,user)
+    if (!dir.exists(userdir)) {
+        dir.create(userdir)
+        message('Created userdir: ',userdir)
+    } else {
+        message('Using existing userdir: ', userdir)
+    }
     app(shiny_args=shiny_args,indir=indir,userdir=userdir)
 }