checksum functions: add 'no directory' precondition

inbo · Mar 24, 2021 · 0cec424 · 0cec424
1 parent 4572779
commit 0cec424
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/filemanagement.R b/R/filemanagement.R
@@ -459,7 +459,12 @@ sha256sum <- function(files) {
 assert_that_allfiles_exist <- function(x) {
     exist <- file.exists(x)
     assert_that(all(exist),
-                msg = paste0("The following file(s) do not exist:\n",
+                msg = paste0("The following path(s) do not exist:\n",
                              paste0(x[!exist], collapse = "\n")))
+    isfolder <- dir.exists(x)
+    assert_that(!any(isfolder),
+                msg = paste0("The following path(s) are folders; only ",
+                             "files are accepted:\n",
+                             paste0(x[isfolder], collapse = "\n")))
 }