Translate \n to <br /> in fct labels, too

DESCRIPTION

@@ -15,7 +15,9 @@ Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "[email protected]", comment = c(ORCID = "0000-0002-1994-3581")),
     person("Pedro", "Despouy", role = "aut",
     email = "[email protected]"),
-    person("Plotly Technologies Inc.", role = "cph"))
+    person("Plotly Technologies Inc.", role = "cph"),
+    person("Salim", "Brüggemann", role = "ctb",
+    email = "[email protected]", comment = c(ORCID = "0000-0002-5329-5987")))
 License: MIT + file LICENSE
 Description: Create interactive web graphics from 'ggplot2' graphs and/or a custom interface to the (MIT-licensed) JavaScript library 'plotly.js' inspired by the grammar of graphics.
 URL: https://plotly-r.com, https://github.com/ropensci/plotly#readme, https://plot.ly/r

R/utils.R

@@ -609,12 +609,14 @@ translate_linebreaks <- function(p) {
     typ <- typeof(a)
     if (typ == "list") {
       # retain the class of list elements 
-      # which important for many things, such as colorbars
+      # which is important for many things, such as colorbars
       a[] <- lapply(a, recurse)
     } else if (typ == "character" && !inherits(a, "JS_EVAL")) {
       attrs <- attributes(a)
       a <- gsub("\n", br(), a, fixed = TRUE)
       attributes(a) <- attrs
+    } else if (is.factor(a)) {
+      levels(a) <- gsub("\n", br(), levels(a), fixed = TRUE)
     }
     a
   }

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)
+})