Reinsert alphanumeric utility

PirateGrunt · Jun 21, 2016 · 3118c58 · 3118c58
1 parent 0496b59
commit 3118c58
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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