From 3118c585b40d7bcf8b5a6ed6df7415a0c668fa02 Mon Sep 17 00:00:00 2001
From: Brian Fannin <FanninQED@Yahoo.com>
Date: Tue, 21 Jun 2016 09:24:23 -0400
Subject: [PATCH] Reinsert alphanumeric utility

---
 R/ResearchDirs.R | 6 ++++++
 1 file changed, 6 insertions(+)

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