From d33aa2e31f3f6d50002ecaccfe75f41c729fd17e Mon Sep 17 00:00:00 2001
From: vertesy <abel.vertesy@imba.oeaw.ac.at>
Date: Sun, 10 Mar 2024 20:13:01 +0100
Subject: [PATCH] ...

---
 R/MarkdownReports.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/MarkdownReports.R b/R/MarkdownReports.R
index 04a567e..fef11aa 100644
--- a/R/MarkdownReports.R
+++ b/R/MarkdownReports.R
@@ -301,10 +301,10 @@ continue_logging_markdown <- function(b.scriptname) {
 #'
 #' @export
 #' @examples create_set_OutDir(setDir = TRUE, getwd(), "/")
-create_set_OutDir <- function(..., setDir = TRUE, verbose = TRUE, newName = NULL) {
-  OutDir <- kollapse(..., print = FALSE)
-  OutDir <- AddTrailingSlashfNonePresent(OutDir)
-  OutDir <- ReplaceRepeatedSlashes(OutDir)
+create_set_OutDir <- function(..., setDir = TRUE, verbose = TRUE,
+                              newName = NULL) {
+  OutDir <- FixPath(...)
+  # OutDir <- AddTrailingSlashfNonePresent(OutDir)
   if (verbose) Stringendo::iprint("All files will be saved under 'OutDir': ", OutDir)
   if (!exists(OutDir)) {
     dir.create(OutDir, recursive = T, showWarnings = FALSE)