Fix subaqueous drainage class parsing

ncss-tech · Feb 23, 2024 · f676019 · f676019
1 parent 6953376
commit f676019
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/parseOSD_functions.R b/R/parseOSD_functions.R
@@ -222,7 +222,7 @@
 
   # combine into capturing REGEX
   classes.regex <- paste0('(', paste(classes, collapse = '|'), ')', "( drained)?( (to|or|and) )?",
-                          paste0('(', paste(classes, collapse = '|'), ')'), "? drained")
+                          paste0('(', paste(classes, collapse = '|'), ')'), "? drained|subaqueous")
 
   # get matches
   m <- stringi::stri_match(text, regex = classes.regex, mode = 'first', opts_regex = list(case_insensitive = TRUE))