use perl regex for extra robustness

onlyphantom · Mar 7, 2019 · f642d56 · f642d56
1 parent ae7efa6
commit f642d56
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/verisr2.R b/R/verisr2.R
@@ -80,7 +80,7 @@ getenum_tbl <- function(data, params){
 
 getenum_df_single <- function(data, params){
   sel <- getenum_stri(data, params)
-  selnames <- gsub("^[a-z.]+", replacement="", sel)
+  selnames <- gsub("^[a-z0-9._ ]+\\.?(?=[A-Z])", replacement="", sel, perl=TRUE)
 
   x <- data.frame("enum" = selnames, "x"=colSums(data[,sel]))
   x <- cbind(x, "n"=nrow(data[rowSums(data[,sel[-length(sel)]]) > 0, ]))