bug fix

datasciencecampus · Jan 24, 2019 · b6eef6b · b6eef6b
1 parent 4b35133
commit b6eef6b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/propeR/R/isochrone-multi.R b/propeR/R/isochrone-multi.R
@@ -139,6 +139,7 @@ isochroneMulti <- function(output.dir,
       if ("try-error" %in% class(t)) {
         originPoints_removed <- c(originPoints_removed, originPoints$name[num.run])
         originPoints_removed_list <- c(originPoints_removed_list, num.run)
+        end.time <- Sys.time()
         time.taken[num.run] <- round(end.time - start.time, digits = 2)
         message("Removed ", originPoints$name[num.run], " from analysis as no polygon could be generated from it.")
         next
@@ -185,6 +186,7 @@ isochroneMulti <- function(output.dir,
       if ("try-error" %in% class(t)) {
         originPoints_removed <- c(originPoints_removed, originPoints$name[num.run])
         originPoints_removed_list <- c(originPoints_removed_list, num.run)
+        end.time <- Sys.time()
         time.taken[num.run] <- round(end.time - start.time, digits = 2)
         message("Removed ", originPoints$name[num.run], " from analysis as no polygon could be generated from it.")
         next