replace is.sec_axis() with is_sec_axis()

teunbrand · teunbrand · commit 928b60546274 · 2025-04-10T13:24:36.000+02:00
diff --git a/R/axis-secondary.R b/R/axis-secondary.R
@@ -124,7 +124,7 @@ dup_axis <- function(transform = identity, name = derive(), breaks = derive(),
   sec_axis(transform, trans = trans, name, breaks, labels, guide)
 }
 
-is.sec_axis <- function(x) {
+is_sec_axis <- function(x) {
   inherits(x, "AxisSecondary")
 }
 
@@ -136,7 +136,7 @@ set_sec_axis <- function(sec.axis, scale) {
       }
     }
     if (is_formula(sec.axis)) sec.axis <- sec_axis(sec.axis)
-    if (!is.sec_axis(sec.axis)) {
+    if (!is_sec_axis(sec.axis)) {
       cli::cli_abort("Secondary axes must be specified using {.fn sec_axis}.")
     }
     scale$secondary.axis <- sec.axis

Original file line number	Diff line number	Diff line change
`@@ -124,7 +124,7 @@ dup_axis <- function(transform = identity, name = derive(), breaks = derive(),`
`124`	`124`	`sec_axis(transform, trans = trans, name, breaks, labels, guide)`
`125`	`125`	`}`
`126`	`126`
`127`		`-is.sec_axis <- function(x) {`
	`127`	`+is_sec_axis <- function(x) {`
`128`	`128`	`inherits(x, "AxisSecondary")`
`129`	`129`	`}`
`130`	`130`
`@@ -136,7 +136,7 @@ set_sec_axis <- function(sec.axis, scale) {`
`136`	`136`	`}`
`137`	`137`	`}`
`138`	`138`	`if (is_formula(sec.axis)) sec.axis <- sec_axis(sec.axis)`
`139`		`- if (!is.sec_axis(sec.axis)) {`
	`139`	`+ if (!is_sec_axis(sec.axis)) {`
`140`	`140`	`cli::cli_abort("Secondary axes must be specified using {.fn sec_axis}.")`
`141`	`141`	`}`
`142`	`142`	`scale$secondary.axis <- sec.axis`