tidyverse
diff --git a/‎R/utilities-resolution.R‎
Lines changed: 4 additions & 0 deletions b/‎R/utilities-resolution.R‎
Lines changed: 4 additions & 0 deletions
diff --git a/‎man/resolution.Rd‎
Lines changed: 1 addition & 2 deletions b/‎man/resolution.Rd‎
Lines changed: 1 addition & 2 deletions
@@ -35,6 +35,10 @@ 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], 1)
 
 }
Original file line number	Diff line number	Diff line change
`@@ -35,6 +35,10 @@ resolution <- function(x, zero = TRUE, discrete = FALSE) {`
`35`	`35`	`d <- diff(sort(x))`
`36`	`36`	`tolerance <- sqrt(.Machine$double.eps)`
`37`	`37`
	`38`	`+ if(all(d < tolerance)){`
	`39`	`+ return(1)`
	`40`	`+ }`
	`41`	`+`
`38`	`42`	`min(d[d > tolerance], 1)`
`39`	`43`
`40`	`44`	`}`