add record existence checks in read_all

R/helpers.R

@@ -18,3 +18,9 @@ check_directory <- function(path, create=F) {
         stop("Directory exists, but is not writeable.")
     }
 }
+
+# appends a file seperator at end of path if needed
+make_directory_path <- function(path) {
+    if (!str_ends(path, .Platform$file.sep)) str_c(path, .Platform$file.sep)
+    else path
+}