use is_finite() helper in check_transformation()

teunbrand · teunbrand · commit 03e69ae0feab · 2024-12-02T16:49:11.000+01:00
diff --git a/R/scale-.R b/R/scale-.R
@@ -1387,7 +1387,7 @@ scale_flip_position <- function(scale) {
 }
 
 check_transformation <- function(x, transformed, name, arg = NULL, call = NULL) {
-  if (!any(is.finite(x) != is.finite(transformed))) {
+  if (!any(is_finite(x) != is_finite(transformed))) {
     return(invisible())
   }
   if (is.null(arg)) {

Original file line number	Diff line number	Diff line change
`@@ -1387,7 +1387,7 @@ scale_flip_position <- function(scale) {`
`1387`	`1387`	`}`
`1388`	`1388`
`1389`	`1389`	`check_transformation <- function(x, transformed, name, arg = NULL, call = NULL) {`
`1390`		`- if (!any(is.finite(x) != is.finite(transformed))) {`
	`1390`	`+ if (!any(is_finite(x) != is_finite(transformed))) {`
`1391`	`1391`	`return(invisible())`
`1392`	`1392`	`}`
`1393`	`1393`	`if (is.null(arg)) {`