From f1aebcf7852a2a257742650c993e54083534bb32 Mon Sep 17 00:00:00 2001
From: cnathe <cnathe@labkey.com>
Date: Mon, 29 Apr 2019 09:17:18 -0500
Subject: [PATCH] Fix for
 LuminexExcludableWellsTest.testReplicateGroupExclusion test failure - R
 transform script issue with converting blank text to logical boolean

---
 .../resources/transformscripts/labkey_luminex_transform.R    | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/luminex/resources/transformscripts/labkey_luminex_transform.R b/luminex/resources/transformscripts/labkey_luminex_transform.R
index bf74a33ce7..347ece6563 100644
--- a/luminex/resources/transformscripts/labkey_luminex_transform.R
+++ b/luminex/resources/transformscripts/labkey_luminex_transform.R
@@ -125,9 +125,10 @@ isNegativeControl <- function(analytedata, analyteVal)
     negControl = FALSE;
     if (!is.null(analytedata$NegativeControl))
     {
-        if (!is.na(analytedata$NegativeControl[analytedata$Name == analyteVal]))
+        negControlVal = as.logical(analytedata$NegativeControl[analytedata$Name == analyteVal]);
+        if (!is.na(negControlVal))
         {
-            negControl = as.logical(analytedata$NegativeControl[analytedata$Name == analyteVal]);
+            negControl = negControlVal
         }
     }