--- a
+++ b/R/basic-utils.R
@@ -0,0 +1,29 @@
+#' Create directory if it doesn't already exist, or
+#' issue error if it does exist but the minimum access
+#' requirements are not met, to avoid using directories
+#' created for another purpose.
+#' 
+#' @param file_path Location of directory to check/create
+#' @param min_access Minimum access permissions ("rwx", "rx" etc.)
+#' 
+#' @importFrom checkmate test_directory_exists assert_access
+#' 
+
+makeifnot_dir <- function(file_path, min_access) {
+  # Set up directory if does not already exist
+  if (checkmate::test_directory_exists(file.path(
+    file_path
+  ))) {
+    # Can we write to it?
+    checkmate::assert_access(file.path(
+      file_path, access = min_access
+    )) 
+  } else {
+    # Wrap me in a tryCatch
+    tryCatch(
+      dir.create(file_path),
+      # Convert warning to error
+      warning = function(w) rlang::abort(w$message)
+    )
+  }
+}
\ No newline at end of file