Merge pull request #394 from ropensci/fix/bar-coord-flip

Set proper bar orientation when we detect geom_bar() + coord_flip()

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via Plotly's JavaScript Graphing Library
-Version: 2.2.1
+Version: 2.2.2
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "cpsievert1@gmail.com"),
     person("Chris", "Parmer", role = c("aut", "cph"),

NEWS

@@ -1,3 +1,7 @@
+2.2.2 -- 18 Jan 2015
+
+Fix bar orientation when we detect geom_bar() + coord_flip() in ggplotly(). Fixes #390.
+
 2.2.1 -- 18 Jan 2015
 
 Search for axis title in scene object. fixes #393.

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")
+})
+