diff --git a/R/parseOutput.R b/R/parseOutput.R index ee3dfa0..0b77e9e 100644 --- a/R/parseOutput.R +++ b/R/parseOutput.R @@ -1476,9 +1476,9 @@ extractCovarianceCoverage <- function(outfiletext, filename) { covcoverageList <- list() - covcoverageSubsections <- getMultilineSection("PROPORTION OF DATA PRESENT( FOR [\\w\\d\\s\\.,_]+)*", + covcoverageSubsections <- getMultilineSection("PROPORTION OF DATA PRESENT FOR \\w+(?:\\s+\\(\\d+\\))*\\s*$", covcoverageSection, filename, allowMultiple=TRUE) - + matchlines <- attr(covcoverageSubsections, "matchlines") if (length(covcoverageSubsections) == 0 || all(is.na(covcoverageSubsections))) { #See UG ex9.7.out