diff --git a/R/ResearchDirs.R b/R/ResearchDirs.R
index 73d4878..a595605 100644
--- a/R/ResearchDirs.R
+++ b/R/ResearchDirs.R
@@ -1,3 +1,9 @@
+AtLeastOneAlphaNumeric <- function(x){
+  y <- grepl("(?!_)(\\w+)", x, perl=TRUE)
+
+  y
+}
+
 #' Create a new Research
 #'
 #' @param path A character variable indicating the name of the project to create