diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2016-12-12 21:24:24 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2016-12-12 21:24:24 +0100 |
| commit | e51e063564bffcb75dbb6ab7a364704c8d8e992e (patch) | |
| tree | 971e30cab2ceb7a85e9fbe8957527a8c851cbd91 /R/TOXSWA_cwa.R | |
| parent | 9124e0f7d673c65584c1b2f838a3b944ea89c31d (diff) | |
Fix reading .out for acronyms containing numbers
Diffstat (limited to 'R/TOXSWA_cwa.R')
| -rw-r--r-- | R/TOXSWA_cwa.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/TOXSWA_cwa.R b/R/TOXSWA_cwa.R index c5ddce9..45189f8 100644 --- a/R/TOXSWA_cwa.R +++ b/R/TOXSWA_cwa.R @@ -236,7 +236,7 @@ TOXSWA_cwa <- R6Class("TOXSWA_cwa", } else { # Get the substance name(s) sub_lines <- grep(".*0.000.*ConLiqWatLayCur_", outfile[1:50], value = TRUE) - substances <- gsub(".*ConLiqWatLayCur_(.*?) *[0-9].*", "\\1", sub_lines) + substances <- gsub(".*ConLiqWatLayCur_(.*?) +[0-9].*", "\\1", sub_lines) if (!substance %in% c("parent", substances)) { stop("No data for substance ", substance, " present in the .out file.") } |