Small fixes to test

Author: mkcor

R/ggplotly.R

@@ -170,7 +170,6 @@ geom2trace <-
     list(x=data$x,
          y=data$y,
          name=params$name,
-         text=data$text,
          type="bar")
   }
   )

inst/tests/test-ggplot-bar.R

@@ -18,17 +18,17 @@ test_that("position_dodge is translated to barmode=group", {
 })
 
 test_that("position_stack is translated to barmode=stack", {
-  gg.stack <- gg+geom_bar(stat="identity", position="stack")
-  gg2list(gg.stack)
+  gg.stack <- gg + geom_bar(stat="identity", position="stack")
+  L <- gg2list(gg.stack)
   expect_equal(length(L), 3)
   trace.names <- sapply(L[1:2], "[[", "name")
   expect_true(all(c("Math", "Bio") %in% trace.names))
   expect_identical(L$kwargs$layout$barmode, "stack")
 })
 
 test_that("position_identity is translated to barmode=overlay", {
-  gg.identity <- gg+geom_bar(stat="identity", position="identity")
-  gg2list(gg.identity)
+  gg.identity <- gg + geom_bar(stat="identity", position="identity")
+  L <- gg2list(gg.identity)
   expect_equal(length(L), 3)
   trace.names <- sapply(L[1:2], "[[", "name")
   expect_true(all(c("Math", "Bio") %in% trace.names))