DS-4804 Fixup and add unit test

Author: jrwishart

R/plotly.R

@@ -143,7 +143,7 @@ plot_ly <- function(data = data.frame(), ..., type = NULL, name,
   if (is.data.frame(data) && nrow(data) > 0L) {
     qtables <- vapply(data, inherits, logical(1L), c("qTable", "QTable"))
     if (any(qtables))
-      data[qtables] <- lapply(data[qtables], unclass)
+      data[qtables] <- lapply(data[qtables], as.vector)
   }
 
   # "native" plotly arguments

tests/testthat/test-plotly.R

@@ -357,3 +357,17 @@ test_that("Line breaks are properly translated (R -> HTML)", {
 test_that("group_by() on a plotly object doesn't produce warning", {
    expect_warning(group_by(plot_ly(txhousing), city), NA)
 })
+
+test_that("Check QTables dont cause errors", {
+    .createQTableArray <- function(n, class.name)
+        structure(
+            array(runif(n), dim = c(n, 1L)),
+            class = class.name
+        )
+    s <- data.frame(
+        x = .createQTableArray(10, "QTable"),
+        y = .createQTableArray(10, "qTable")
+    )
+    expect_error(p <- plot_ly(s, x = ~x, y = ~y), NA)
+    expect_error(print(p), NA)
+})