Stop with improved error message

R/readEuCodedFiles.R

@@ -33,11 +33,14 @@ readEuCodedFiles <- function(
       "input file %d/%d: %s\n", i, length(input.files), input.file
     ))
 
-    inspectionData <- try(readEuCodedFile(input.file, dbg = dbg, ...))
+    inspectionData <- try(
+      readEuCodedFile(input.file, dbg = dbg, ...),
+      silent = TRUE
+    )
 
     # Return NULL if an error occurred
     if (kwb.utils::isTryError(inspectionData)) {
-      return(NULL)
+      return(inspectionData)
     }
 
     if (append.file.names) {
@@ -49,18 +52,29 @@ readEuCodedFiles <- function(
 
     inspectionData
   })
-
-  failed <- sapply(result, is.null)
+  
+  failed <- sapply(result, kwb.utils::isTryError)
 
   # Give a warning about occurred errors
   if (any(failed)) {
-
-    warning(call. = FALSE, sprintf(
-      "readEuCodedFile() returned with error for the following %d files:\n%s", 
-      sum(failed), kwb.utils::stringList(basename(input.files[failed]))
-    ))
+    stop(
+      call. = FALSE,
+      "Import aborted due to errors in ",
+      sum(failed),
+      " files:\n\n*** ", 
+      paste0(
+        basename(input.files[failed]),
+        ":\n", 
+        as.character(result[failed]),
+        collapse = "\n*** "
+      ),
+      "\nYou may either\n", 
+      "- correct the files,\n", 
+      "- rename them so that they do not end in '.txt' any more, or\n", 
+      "- remove them from the input folder."
+    )
   }
-
+  
   # Create valid list element names
   elements <- kwb.utils::substSpecialChars(basename(input.files))