Make sure flip is never NA (#3665)

Author: thomasp85

R/utilities.r

@@ -603,8 +603,8 @@ has_flipped_aes <- function(data, params = list(), main_is_orthogonal = NA,
 #' @rdname bidirection
 #' @export
 flip_data <- function(data, flip = NULL) {
-  flip <- flip %||% data$flipped_aes[1] %||% FALSE
-  if (flip) {
+  flip <- flip %||% any(data$flipped_aes) %||% FALSE
+  if (isTRUE(flip)) {
     names(data) <- switch_orientation(names(data))
   }
   data