Fixing searchdir update in blockattime()

bpfaff · Sep 4, 2018 · df94f4b · df94f4b
1 parent 4cb03c4
commit df94f4b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/UtilFuncs.R b/R/UtilFuncs.R
@@ -504,6 +504,7 @@ blockattime <- function(con, targetdate){
         if (curdelta > 100){
             approxh1 <- approxh1 + searchdir * floor(curdelta / 10)
             ht <- timeofblock(con, approxh1)
+            searchdir <- sign(as.numeric(dt - ht))
         }
         signtimedelta <- sign(as.numeric(dt - ht))
     }