path different from line

Author: tdhock

R/ggplotly.R

@@ -113,7 +113,10 @@ toBasic <-
     })
     g$geom <- "path"
     group2NA(g)
-  },polygon=group2NA,line=group2NA,ribbon=function(g){
+  },polygon=group2NA,line=function(g){
+    g$data <- g$data[order(g$data$x),]
+    group2NA(g)
+  },ribbon=function(g){
     stop("TODO")
   })
 

inst/tests/test-ggplot-path.R

@@ -0,0 +1,15 @@
+context("path")
+
+df <- data.frame(x=c(1, 3, 2),
+                 y=c(0, 0, 1))
+
+test_that("lines are different from paths", {
+  p <- qplot(x, y, data=df, geom="path")
+  p.tr <- gg2list(p)[[1]]
+  expect_identical(p.tr$x, c(1, 3, 2))
+  expect_identical(p.tr$y, c(0, 0, 1))
+  l <- qplot(x, y, data=df, geom="line")
+  l.tr <- gg2list(l)[[1]]
+  expect_identical(l.tr$x, c(1, 2, 3))
+  expect_identical(l.tr$y, c(0, 1, 0))
+})