diff --git a/R/parseOSD_functions.R b/R/parseOSD_functions.R index 7c2a7aadb4..770befad48 100644 --- a/R/parseOSD_functions.R +++ b/R/parseOSD_functions.R @@ -168,7 +168,7 @@ .parse_pH <- function(text) { # combine into capturing REGEX - ph.regex <- '\\(ph\\s?([0-9]\\.[0-9])\\)' + ph.regex <- '\\(ph\\s?([0-9]\\.?[0-9]?)\\)' # get matches m <- stringi::stri_match(text, regex = ph.regex, mode = 'first', opts_regex = list(case_insensitive = TRUE))