Allow underscores in name regex

alandipert · alandipert · commit 0e626074d93b · 2019-03-14T22:09:18.000-07:00
diff --git a/R/scaffold_utils.R b/R/scaffold_utils.R
@@ -54,7 +54,7 @@ getPackage <- function() {
 }
 
 validName <- function(name) {
-  grepl("^[[:alpha:]]+[[:alnum:]]*$", name)
+  grepl("^[[:alpha:]_][[:alnum:]_]*$", name)
 }
 
 # Constraining names prevents the user from encountering obscure CSS problems

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ getPackage <- function() {`
`54`	`54`	`}`
`55`	`55`
`56`	`56`	`validName <- function(name) {`
`57`		`- grepl("^[[:alpha:]]+[[:alnum:]]*$", name)`
	`57`	`+ grepl("^[[:alpha:]_][[:alnum:]_]*$", name)`
`58`	`58`	`}`
`59`	`59`
`60`	`60`	`# Constraining names prevents the user from encountering obscure CSS problems`