From 05163e161aff95269ba5a8bde8ffaf5b31e30bb9 Mon Sep 17 00:00:00 2001
From: vertesy <abel.vertesy@imba.oeaw.ac.at>
Date: Tue, 5 Mar 2024 12:51:51 +0100
Subject: [PATCH] nf check_OutDir

---
 R/MarkdownReports.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/MarkdownReports.R b/R/MarkdownReports.R
index f25d511..ee217ac 100644
--- a/R/MarkdownReports.R
+++ b/R/MarkdownReports.R
@@ -336,12 +336,13 @@ create_set_OutDir <- function(..., setDir = TRUE, verbose = TRUE, newName = NULL
 #' @export
 check_OutDir <- function() {
     # Get the current working directory
-  current_dir <- getwd()
+  current_dir <- paste0(getwd(),"/")
 
   # Check if OutDir is defined and if current_dir is not equal to OutDir
   if (!exists("OutDir")) {
     message("OutDir does not exist; wd is: ", current_dir)
   } else {
+    try(OutDir <- Stringendo::AddTrailingSlashfNonePresent(OutDir), silent = T)
     if (current_dir != OutDir) {
       # Print both directories as a message if they do not match
       print("Directory Mismatch!")