plotly
diff --git a/‎tests/testthat/test-plotly.R
Copy file name to clipboardExpand all lines: tests/testthat/test-plotly.R
+35Lines changed: 35 additions & 0 deletions b/‎tests/testthat/test-plotly.R
Copy file name to clipboardExpand all lines: tests/testthat/test-plotly.R
+35Lines changed: 35 additions & 0 deletions
@@ -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)
+})