Merge pull request #518 from ropensci/fix/singleTick

Fix/single tick

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via 'plotly.js'
-Version: 3.4.4
+Version: 3.4.5
 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,9 @@
+3.4.5 -- 17 Mar 2016
+
+BUGFIX:
+
+Fixed #514.
+
 3.4.4 -- 17 Mar 2016
 
 BUGFIX:

R/utils.R

@@ -138,6 +138,11 @@ add_boxed <- function(x) {
     x$data[[i]]$error_x$arrayminus <- i(d$error_x$arrayminus)
     x$data[[i]]$error_y$arrayminus <- i(d$error_y$arrayminus)
   }
+  axes <- grep("^[x-y]axis", names(x$layout))
+  for (ax in axes) {
+    x$layout[[ax]]$ticktext <- i(x$layout[[ax]]$ticktext)
+    x$layout[[ax]]$tickvals <- i(x$layout[[ax]]$tickvals)
+  }
   x
 }
 

tests/testthat/test-ggplot-point.R

@@ -43,3 +43,12 @@ test_that("can plot on sub-second time scale", {
   info <- save_outputs(g, "point-size-alpha2")
   expect_equivalent(info$data[[1]]$x, as.numeric(d$x))
 })
+
+
+test_that("tickvals/ticktext are appropriately boxed", {
+  d <- data.frame(x = factor(75), y = 10)
+  p <- qplot(x, y, data = d) 
+  info <- save_outputs(p, "point-box")
+  expect_true(plotly::to_JSON(info$layout$xaxis$tickvals) == '[1]')
+  expect_true(plotly::to_JSON(info$layout$xaxis$ticktext) == '["75"]')
+})