passes my tests for reconhub#28, but breaks other tests (on first run…

… of tests()) and regenerates reference files; passes all tests on second run of tests(); not committing new reference files

R/extract_info.R

@@ -47,10 +47,12 @@ extract_info <- function(reg, origin, level){
     o.names <- colnames(info$doubling.conf)
     info$doubling.conf <- info$doubling.conf[, rev(seq_along(o.names)),
                                              drop = FALSE]
+    info$doubling.conf[info$doubling.conf<0] <- Inf
     colnames(info$doubling.conf) <- o.names
   } else {
     info$halving <- log(0.5) / r
     info$halving.conf <- log(0.5) / r.conf
+    info$halving.conf[info$halving.conf<0] <- Inf
   }
 
   ## We need to store the date corresponding to 'day 0', as this will be used