Prevent long distances, close #125

Heads-up @mem48 on this
ITSLeeds · May 19, 2023 · 3921fc1 · 3921fc1
1 parent 73ebfda
commit 3921fc1
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -3,6 +3,7 @@
 - Fix for CRAN check errors (#124)
 - Update README with test instructions
 - Ignore large .geojson files in .Rbuildignore
+- Prevent high uptake numbers for long distances (#125)
 
 # pct 0.9.8 (February 2023)
 

diff --git a/R/uptake.R b/R/uptake.R
@@ -381,6 +381,14 @@ check_distance_gradient = function(distance, gradient, verbose = TRUE) {
     }
     distance = distance / 1000
   }
+  # If distance is more than 30 km set to 30:
+  which_distance_too_long = distance > 30
+  if (any(which_distance_too_long)) {
+    if (verbose) {
+      message("Distances greater than 30 km set to 30 km")
+    }
+    distance[which_distance_too_long] = 30
+  }
   # is it in %? If mean of gradient is more than 0.1 (10% as ratio), probably
   is_gradient_percent = mean(gradient) > 0.1
   if(!is_gradient_percent) {