From 4028c9f9f721deca7e79e9dbd0c04aa1b66deea6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Mon, 28 Feb 2022 10:28:00 +0100
Subject: [PATCH] R/api: serve: Fix top-level output directory creation.

---
 DESCRIPTION | 2 +-
 R/api.R     | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 3b8162a..55b93aa 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 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: 
diff --git a/R/api.R b/R/api.R
index c16e2b7..44d4308 100644
--- a/R/api.R
+++ b/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)
 }
 
-- 
GitLab