aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2016-12-12 21:24:24 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2016-12-12 21:24:24 +0100
commite51e063564bffcb75dbb6ab7a364704c8d8e992e (patch)
tree971e30cab2ceb7a85e9fbe8957527a8c851cbd91 /R
parent9124e0f7d673c65584c1b2f838a3b944ea89c31d (diff)
Fix reading .out for acronyms containing numbers
Diffstat (limited to 'R')
-rw-r--r--R/TOXSWA_cwa.R2
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.")
}

Contact - Imprint