optional space after separator character

ncss-tech · Oct 25, 2023 · 78d8a96 · 78d8a96
1 parent 1a174dc
commit 78d8a96
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/parseOSD_functions.R b/R/parseOSD_functions.R
@@ -207,7 +207,7 @@
 
 # vectorized parsing of effervescence class
 .parse_eff_class <- function(x) {
-  SoilKnowledgeBase:::.zerochar_to_na(gsub("^.*[;,]? \\b([a-z]+ ?effervescen[tce]+ to [a-z]+ ?effervescen[tce]+).*$|^.*[;,] \\b(very [a-z]+ effervescen[tce]+).*$|^.*[;,] \\b([a-z]+ ?effervescen[tce]+).*$|^.*[;,]? \\b(very [a-z]+ effervescen[tce]+).*$|^.*[;,]? \\b([a-z]+ ?effervescen[tce]+).*$|.*",
+  .zerochar_to_na(gsub("^.*[;,]? ?\\b([a-z]+ ?effervescen[tce]+ to [a-z]+ ?effervescen[tce]+).*$|^.*[;,] ?\\b(very [a-z]+ effervescen[tce]+).*$|^.*[;,] ?\\b([a-z]+ ?effervescen[tce]+).*$|^.*[;,]? ?\\b(very [a-z]+ effervescen[tce]+).*$|^.*[;,]? ?\\b([a-z]+ ?effervescen[tce]+).*$|.*",
                                            "\\1\\2\\3\\4\\5", x, ignore.case = TRUE))
   # factors cannot be preserved in JSON output, and wont work for multiple classes/ranges of classes
 }