DS-4923 Only check QTable class (#21)

Author: jrwishart

R/plotly.R

@@ -142,7 +142,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"))
+    qtables <- vapply(data, inherits, logical(1L), "QTable")
     if (any(qtables))
       data[qtables] <- lapply(data[qtables], as.vector)
   }

tests/testthat/test-plotly.R

@@ -364,8 +364,7 @@ test_that("Check QTables dont cause errors", {
         x2 = array(runif(n), dim = n),
         y = factor(letters[1:10])
     )
-    class(s[[1]]) <- "QTable"
-    class(s[[2]]) <- "qTable"
+    class(s[[1]]) <- class(s[[2]]) <- "QTable"
     expect_error(p <- plot_ly(s) |>
         add_segments(x = ~x, xend = ~x2, y = ~y, yend = ~y, showlegend = FALSE) |>
         add_markers(x = ~x, xend = ~y, y = ~y, name = "foo", color = I("orange"), showlegend = FALSE) |>