R CMD check workaround

Author: cpsievert

tests/testthat/test-ggplot-contour.R

@@ -5,7 +5,7 @@ context("Contour")
 test_that("geom_contour is translated to a path", {
   skip_if_not_installed("reshape2")
 
-  volcano3d <- reshape2::melt(volcano)
+  volcano3d <- getFromNamespace("melt", "reshape2")(volcano)
   names(volcano3d) <- c("x", "y", "z")
   # Draw a contour plot using geom_contour
   gg <- ggplot(volcano3d) + geom_contour(aes(x=x, y=y, z=z))

tests/testthat/test-ggplot-heatmap.R

@@ -11,7 +11,7 @@ workweek <- matrix(
 test_that("geom_tile is translated to type=heatmap", {
   skip_if_not_installed("reshape2")
 
-  ww <- reshape2::melt(workweek)
+  ww <- getFromNamespace("melt", "reshape2")(workweek)
   ww$day <- factor(ww$day, wdays)
   ww$time <- factor(ww$time, dtimes)
   # Plot a heatmap using geom_tile

tests/testthat/test-ggplot-ticks.R

@@ -183,7 +183,7 @@ test_that("R line breaks are translated to HTML line breaks", {
   )
   p <- ggplot(aes(x = x, y = y), data = df_x) +
     geom_bar(stat = "identity") +
-    scale_x_discrete(labels = function(x) stringr::str_wrap(x, width = 10))
+    scale_x_discrete(labels = function(x) getFromNamespace("str_wrap", "stringr")(x, width = 10))
   info <- expect_traces(p, 1, "line-breaks")
   expect_length(
     strsplit(info$layout$xaxis$ticktext, "<br />", fixed = T)[[1]], 5