Pass in reference data path

mitre · Aug 3, 2023 · 97ecc46 · 97ecc46
1 parent 56e127d
commit 97ecc46
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/R/growth.R b/R/growth.R
@@ -915,7 +915,8 @@ cleangrowth <- function(subjid,
           who.ht.vel = who.ht.vel,
           lt3.exclude.mode = lt3.exclude.mode,
           error.load.threshold = error.load.threshold,
-          error.load.mincount = error.load.mincount)
+          error.load.mincount = error.load.mincount,
+          ref.data.path = ref.data.path)
       }
     } else {
       # create log directory if necessary
@@ -969,7 +970,8 @@ cleangrowth <- function(subjid,
           who.ht.vel = who.ht.vel,
           lt3.exclude.mode = lt3.exclude.mode,
           error.load.threshold = error.load.threshold,
-          error.load.mincount = error.load.mincount
+          error.load.mincount = error.load.mincount,
+          ref.data.path = ref.data.path
         )
       }
       stopCluster(cl)

diff --git a/R/infants_clean.R b/R/infants_clean.R
@@ -32,7 +32,8 @@ cleanbatch_infants <- function(data.df,
                                who.ht.vel,
                                lt3.exclude.mode,
                                error.load.threshold,
-                               error.load.mincount) {
+                               error.load.mincount,
+                               ref.data.path) {
   # avoid "no visible binding" warnings
   abs.2ndlast.sd <- abs.tbc.sd <- abs.tbc.sd.next <- abs.tbc.sd.prev <- abssum2 <- NULL
   aft.g.befp1 <- agedays <- agedays.other <- bef.g.aftm1 <- delta <- NULL