flightpathr

commit 691dfd75b97e68ec178ef8a9c7d71a2a325f0cd1
parent b0492157a131d728f81ef8252f34d407aa588323
Author: eamoncaddigan <eamon.caddigan@gmail.com>
Date:   Tue, 20 Sep 2016 13:30:33 -0400

Need to track down thy maxDistanceFromPath() returns the sign it does...

Diffstat:
M
tests/testthat/test_distanceFromPath.R
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tests/testthat/test_distanceFromPath.R b/tests/testthat/test_distanceFromPath.R
@@ -41,7 +41,7 @@ test_that("small deviations look OK", {
 
   expect_equal(farthestPoint, numPoints*2+3)
 
-  expect_lt(abs(maxDistanceFromPath(flownTrajectory, path)["horizontal"] - -42015.6),
+  expect_lt(abs(maxDistanceFromPath(flownTrajectory, path)["horizontal"] - 42015.6),
             distancePrecision)
   expect_lt(abs(maxDistanceFromPath(flownTrajectory, flownPath)["horizontal"] - 0),
             distancePrecision)
@@ -76,6 +76,6 @@ test_that("reproducing geosphere vignette example", {
   feetToMeters <- 0.3048
 
   expect_lt(abs(maxDistanceFromPath(flownTrajectory, plannedPath)["horizontal"]*feetToMeters -
-                  -547448.8),
+                  547448.8),
             1)
 })