From 78d8a966c1950b7ce47133cce5ef7e7e60b45620 Mon Sep 17 00:00:00 2001 From: "Andrew G. Brown" Date: Wed, 25 Oct 2023 13:15:25 -0700 Subject: [PATCH] optional space after separator character --- R/parseOSD_functions.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/parseOSD_functions.R b/R/parseOSD_functions.R index 17e9f6026d..fa79642000 100644 --- 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 }