add error handling if directories are empty or do not exist

2021-06-29 18:10:03 +02:00
parent 574480a9bb
commit a86ddfec83
3 changed files with 41 additions and 3 deletions
@@ -28,6 +28,8 @@ read_all <- function(path="records/") {
        distinct() ->
        talks

+    if (length(available_protocols) == 0)
+        warning("The given directory is empty or does not exist.")
    list(redner = redner, reden = reden, talks = talks)
 }