Fixed issue with all.equal() in iSnap2Transect()

fishR-Core-Team · Oct 9, 2018 · e31a21b · e31a21b
1 parent 50488dd
commit e31a21b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/digitizeRadii.R b/R/digitizeRadii.R
@@ -379,7 +379,7 @@ iSnap2Transect <- function(pts,trans.pts,
     intersectsX <- trans.pts$x
     ### y-value of point of intercept with transect is same as y of point
     intersectsY <- pts$y
-  } else if (all.equal(slpTransect,0)) {
+  } else if (isTRUE(all.equal(slpTransect,0))) {
     ## Transect is perfectly horizontal
     ### x-value of point of intercept with transect is same as x of point
     intersectsX <- pts$x