check_polar_guide() is validator

teunbrand · teunbrand · commit 981509e7bfa2 · 2024-09-03T14:34:55.000+02:00
diff --git a/R/coord-radial.R b/R/coord-radial.R
@@ -180,7 +180,7 @@ CoordRadial <- ggproto("CoordRadial", Coord,
     # Validate appropriateness of guides
     drop_guides <- character(0)
     for (type in aesthetics) {
-      drop_guides <- check_polar_guide(drop_guides, guides, type)
+      drop_guides <- validate_polar_guide(drop_guides, guides, type)
     }
 
     guide_params <- guides$get_params(aesthetics)
@@ -648,7 +648,7 @@ theta_grid <- function(theta, element, inner_radius = c(0, 0.4),
   )
 }
 
-check_polar_guide <- function(drop_list, guides, type = "theta") {
+validate_polar_guide <- function(drop_list, guides, type = "theta") {
   guide <- guides$get_guide(type)
   primary <- gsub("\\.sec$", "", type)
   if (inherits(guide, "GuideNone") || primary %in% guide$available_aes) {

Original file line number	Diff line number	Diff line change
`@@ -180,7 +180,7 @@ CoordRadial <- ggproto("CoordRadial", Coord,`
`180`	`180`	`# Validate appropriateness of guides`
`181`	`181`	`drop_guides <- character(0)`
`182`	`182`	`for (type in aesthetics) {`
`183`		`- drop_guides <- check_polar_guide(drop_guides, guides, type)`
	`183`	`+ drop_guides <- validate_polar_guide(drop_guides, guides, type)`
`184`	`184`	`}`
`185`	`185`
`186`	`186`	`guide_params <- guides$get_params(aesthetics)`
`@@ -648,7 +648,7 @@ theta_grid <- function(theta, element, inner_radius = c(0, 0.4),`
`648`	`648`	`)`
`649`	`649`	`}`
`650`	`650`
`651`		`-check_polar_guide <- function(drop_list, guides, type = "theta") {`
	`651`	`+validate_polar_guide <- function(drop_list, guides, type = "theta") {`
`652`	`652`	`guide <- guides$get_guide(type)`
`653`	`653`	`primary <- gsub("\\.sec$", "", type)`
`654`	`654`	`if (inherits(guide, "GuideNone") \|\| primary %in% guide$available_aes) {`