Added bug fix for no visible binding note

ahb108 · Mar 18, 2020 · 1e9c79b · 1e9c79b
1 parent e1822d9
commit 1e9c79b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/calibration.R b/R/calibration.R
@@ -136,6 +136,7 @@ calibrate.default <- function(x, errors, ids=NA, dateDetails=NA, calCurves='intc
     if (verbose){ print(paste("Running in parallel (standard calibration only) on ",getDoParWorkers()," workers...",sep=""))}
     `%dofun%` <- `%dopar%`
   }
+  b <- NULL # Added to solve No Visible Binding for Global Variable NOTE
   sublist <- foreach (b=1:length(x)) %dofun% {
     calcurve <- cclist[[calCurves[b]]]
     calBP <- seq(max(calcurve),min(calcurve),-1)