update

Author: laderast

R/utilities-resolution.R

@@ -35,10 +35,6 @@ resolution <- function(x, zero = TRUE, discrete = FALSE) {
   d <- diff(sort(x))
   tolerance <- sqrt(.Machine$double.eps)
 
-  if(all(d < tolerance)){
-    return(1)
-  }
-
-  min(d[d > tolerance])
+  min(d[d > tolerance], 1)
 
 }