Merge pull request #52 from xiangpin/master

GuangchuangYu · web-flow · commit 9c4d7dd4fef7 · 2025-09-10T09:21:36.000+08:00
CoordFixed is missing in new ggplot2 (4.0.0)
diff --git a/R/utilities.R b/R/utilities.R
@@ -20,7 +20,7 @@ is.coord_flip <- function(p) {
 }
 
 is.coord_fixed <- function(p){
-    inherits(p, "gg") && inherits(p$coordinates, "CoordFixed")
+    inherits(p, "gg") && !is.null(p$coordinates$ratio)
 }
 
 #' @importFrom ggplot2 coord_fixed

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ is.coord_flip <- function(p) {`
`20`	`20`	`}`
`21`	`21`
`22`	`22`	`is.coord_fixed <- function(p){`
`23`		`- inherits(p, "gg") && inherits(p$coordinates, "CoordFixed")`
	`23`	`+ inherits(p, "gg") && !is.null(p$coordinates$ratio)`
`24`	`24`	`}`
`25`	`25`
`26`	`26`	`#' @importFrom ggplot2 coord_fixed`