0.9.8: exit gracefully when input directory empty or does not exist

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: LEEF.measurement.manualcount
 Type: Package
 Title: Pre-Process and Extract Manualcount
-Version: 0.9.7
+Version: 0.9.8
 Authors@R: c(
   person(given = "Rainer M.", family = "Krug", email = "[email protected]", role = c("aut", "cre")),
   person("SNF Project 310030_188431", role = "fnd")

R/extractor_manualcount.R

@@ -20,6 +20,13 @@ extractor_manualcount <- function( input, output ) {
     recursive = TRUE,
     showWarnings = FALSE
   )
+  if ( length( list.files( file.path(input, "manualcount") ) ) == 0 ) {
+    message("\nEmpty or missing manualcount directory - nothing to do.\n")
+    message("\ndone\n")
+    message("########################################################\n")
+    return(invisible(TRUE))
+  }
+
   loggit::set_logfile(file.path(output, "manualcount", "manualcount.log"))
 
   message("\n########################################################\n")

R/pre_processor_manualcount.R

@@ -15,6 +15,13 @@ pre_processor_manualcount <- function(
   input,
   output
 ) {
+  if ( length( list.files( file.path(input, "manualcount") ) ) == 0 ) {
+    message("\nEmpty or missing manualcount directory - nothing to do.\n")
+    message("\ndone\n")
+    message("########################################################\n")
+    return(invisible(TRUE))
+  }
+
   dir.create(
     file.path(output, "manualcount"),
     recursive = TRUE,
@@ -26,13 +33,6 @@ pre_processor_manualcount <- function(
   message("\nProcessing manualcount\n")
   ##
 
-  if ( length( list.files( file.path(input, "manualcount") ) ) == 0 ) {
-    message("\nEmpty or missing manualcount directory - nothing to do.\n")
-    message("\ndone\n")
-    message("########################################################\n")
-    return(invisible(TRUE))
-  }
-
   fns <- list.files(
     path = file.path(input, "manualcount"),
     pattern = "\\.xlsx$",

codemeta.json

@@ -10,7 +10,7 @@
   "codeRepository": "https://github.com/LEEF-UZH/LEEF.measurement.manualcount",
   "issueTracker": "https://github.com/LEEF-UZH/LEEF.measurement.manualcount/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.9.7",
+  "version": "0.9.8",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -124,5 +124,5 @@
     }
   ],
   "readme": "https://github.com/LEEF-UZH/LEEF.measurement.manualcount/blob/master/Readme.md",
-  "fileSize": "15.034KB"
+  "fileSize": "15.312KB"
 }