change tabMWRwqx output for AQL to Present Above Quantification Limit, …

…fix #64
massbays-tech · Nov 3, 2023 · 40139ce · 40139ce
1 parent 4709b1f
commit 40139ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tabMWRwqx.R b/R/tabMWRwqx.R
@@ -289,7 +289,7 @@ tabMWRwqx <- function(res = NULL, acc = NULL, sit = NULL, wqx = NULL, fset = NUL
       `Sample Collection Equipment Name` = ifelse(`Activity Type` %in% c('Sample-Routine', 'Quality Control Sample-Field Blank', 'Quality Control Sample-Field Replicate'), 'Water Bottle', NA_character_), 
       `Characteristic Name User Supplied` = `Characteristic Name`,
       `Result Detection Condition` = ifelse(`Result Value` == 'BDL', 'Not Detected',
-        ifelse(`Result Value` == 'AQL', 'Present Above Quantitation Limit', 
+        ifelse(`Result Value` == 'AQL', 'Present Above Quantification Limit', 
           NA_character_
         )
       ),