replace forcats code with base R

plotly · cpsievert · Jun 22, 2020 · Feb 11, 2020 · Feb 11, 2020 · Feb 16, 2020
commit 67c8f125e68e49cd55c4ee4062db8293c50b2f40
diff --git a/tests/testthat/test-plotly.R b/tests/testthat/test-plotly.R
@@ -319,8 +319,6 @@ test_that("toWebGL() shouldn't complain if it's already webgl", {
 })

 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)"

@@ -333,9 +331,8 @@ test_that("Line breaks are properly translated (R -> HTML)", {
         fixed = TRUE)

  # test factor column
-  d <- iris %>% dplyr::mutate(Species = forcats::fct_relabel(Species,
-                                                             paste0,
-                                                             suffix))
+  d <- iris
+  levels(d$Species) <- paste0(levels(d$Species), suffix)
  p1 <- d %>% plot_ly(x = ~Sepal.Length,
                      y = ~Species)