Set proper bar orientation when we detect geom_bar() + coord_flip(). Fixes #390

Author: cpsievert

R/ggplotly.R

@@ -940,6 +940,7 @@ gg2list <- function(p) {
       y <- tr[["y"]]
       tr[["y"]] <- x
       tr[["x"]] <- y
+      if (isTRUE(tr[["type"]] == "bar")) tr$orientation <- "h"
       flipped.traces[[trace.i]] <- tr
     }
     x <- layout[["xaxis"]]

tests/testthat/test-ggplot-bar.R

@@ -184,3 +184,11 @@ test_that("For a given x value, if multiple y exist, sum them. ", {
   y <- y[info$data[[1]]$x]
   expect_equal(info$data[[1]]$y, as.numeric(y))
 })
+
+p <- ggplot(mtcars, aes(factor(cyl))) + geom_bar() + coord_flip()
+
+test_that("geom_bar() + coord_flip() works", {
+  info <- expect_traces(g, 1, "coord-flip")
+  expect_identical(info$data[[1]]$orientation, "h")
+})
+