Add test for translate_linebreaks()

plotly · Apr 23, 2020 · 841e7e9 · 841e7e9
1 parent 4cbf87d
commit 841e7e9
Showing 1 changed file with 35 additions and 0 deletions.
diff --git a/tests/testthat/test-plotly.R b/tests/testthat/test-plotly.R
@@ -317,3 +317,38 @@ test_that("toWebGL() shouldn't complain if it's already webgl", {
     toWebGL()
   expect_silent(plotly_build(p))
 })
+
+test_that("Line breaks are properly translated (R -> HTML)", {
+  skip_if_not_installed(pkg = "forcats")
+
+  # create target labels
+  suffix <- "\n\n(third line)\n(fourth line)"
+
+  target_labels <- iris$Species %>%
+    unique() %>%
+    as.character() %>%
+    paste0(suffix) %>%
+    gsub(pattern = "\n",
+         replacement = br(),
+         x = .,
+         fixed = TRUE)
+
+  # test factor column
+  d <- iris %>% dplyr::mutate(Species = forcats::fct_relabel(Species,
+                                                             paste0,
+                                                             suffix))
+  p1 <- d %>% plot_ly(x = ~Sepal.Length,
+                      y = ~Species)
+
+  expect_equivalent(plotly_build(p1)[["x"]][["layout"]][["yaxis"]][["categoryarray"]],
+                    target_labels)
+
+  # test character column
+  p2 <- d %>%
+    dplyr::mutate(Species = as.character(Species)) %>%
+    plot_ly(x = ~Sepal.Length,
+            y = ~Species)
+
+  expect_equivalent(plotly_build(p2)[["x"]][["layout"]][["yaxis"]][["categoryarray"]],
+                    target_labels)
+})