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 } }