From 3c4d7bbd6a7dde23109a1828e2bb590aaf0f0efe Mon Sep 17 00:00:00 2001
From: "Dr. Hannah De los Santos" <HDELOSSANTOS@MITRE.ORG>
Date: Mon, 14 Aug 2023 12:04:14 -0400
Subject: [PATCH] Do not overwrite error load code

---
 R/infants_clean.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/infants_clean.R b/R/infants_clean.R
index 0d718f4..4b487ff 100644
--- a/R/infants_clean.R
+++ b/R/infants_clean.R
@@ -1700,7 +1700,7 @@ cleanbatch_infants <- function(data.df,
                              ))/.N,
           by = c("subjid", "param")]
 
-  data.df[valid_set & err_ratio > .4,
+  data.df[valid_set & err_ratio > .4 & exclude == "Include",
           exclude := "Exclude-Error-load"]