We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent fb5438f commit 6e202a2Copy full SHA for 6e202a2
1 file changed
R/utilities.R
@@ -20,7 +20,7 @@ is.coord_flip <- function(p) {
20
}
21
22
is.coord_fixed <- function(p){
23
- inherits(p, "gg") && inherits(p$coordinates, "CoordFixed")
+ inherits(p, "gg") && !is.null(p$coordinates$ratio)
24
25
26
#' @importFrom ggplot2 coord_fixed
0 commit comments