v4.9.4.1 release candidate (#1965)

* v4.9.4.1 release candidate

* Reduce some of the warning noise

* Reduce some of the warning noise

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via 'plotly.js'
-Version: 4.9.4.9000
+Version: 4.9.4.1
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "cpsievert1@gmail.com", comment = c(ORCID = "0000-0002-4958-2844")),
     person("Chris", "Parmer", role = "aut",
@@ -36,7 +36,7 @@ Imports:
     base64enc,
     htmltools (>= 0.3.6),
     htmlwidgets (>= 1.5.2.9001),
-    tidyr,
+    tidyr (>= 1.0.0),
     RColorBrewer,
     dplyr,
     vctrs,

NEWS.md

@@ -1,4 +1,4 @@
-# 4.9.4.9000
+# 4.9.4.1
 
 ## BUG FIXES
 

R/ggplotly.R

@@ -346,7 +346,7 @@ gg2list <- function(p, width = NULL, height = NULL,
       x <- reComputeGroup(x, z)
       tib <- tibble::as_tibble(x[c("PANEL", "group")])
       tib[["key"]] <- key
-      nested <- tidyr::nest(tib, key, .key = key)
+      nested <- tidyr::nest(tib, key = key)
       # reduce the dimensions of list column elements from 2 to 1
       nested$key <- lapply(nested$key, function(x) x[[1]])
       nested

tests/testthat/test-ggplot-bar.R

@@ -127,7 +127,7 @@ test_that('guides(colour="none") does not affect fill legend', {
 test_that("guides(fill=FALSE) does not affect colour legend", {
   gg <- ggplot(data = df, aes(x = time, y = total_bill, colour = time)) +
     geom_bar(fill = "grey", stat = "identity") +
-    guides(fill = FALSE)
+    guides(fill = "none")
   info <- expect_traces(gg, 2, "aes-colour-guides-fill-FALSE")
   for(tr in info$data){
     expect_equivalent(tr$marker$color, toRGB("grey"))

tests/testthat/test-ggplot-quantile.R

@@ -10,7 +10,8 @@ test_that("Basic geom_quantile() works", {
     geom_point() +
     geom_quantile()
 
-  l <- plotly_build(p)$x
+  # partial match of 'coef' to 'coefficients' 
+  l <- suppressWarnings(plotly_build(p)$x)
 
   expect_length(l$data, 4)
 
@@ -35,7 +36,8 @@ test_that("Can specify gpar() in geom_quantile()", {
     geom_point() +
     geom_quantile(colour = "red", alpha = 0.5)
 
-  l <- plotly_build(p)$x
+  # partial match of 'coef' to 'coefficients' 
+  l <- suppressWarnings(plotly_build(p)$x)
 
   expect_length(l$data, 4)
 

tests/testthat/test-plotly-data.R

@@ -15,7 +15,7 @@ test_that("plotly_data returns data frame", {
 })
 
 test_that("plotly_data preserves groups in data", {
-  d <- plotly_data(group_by_(plot_ly(mtcars), c("vs", "am")))
+  d <- plotly_data(group_by(plot_ly(mtcars), vs, am))
   expect_true(dplyr::groups(d)[[1]] == "vs")
 })
 

tests/testthat/test-plotly-filename.R

@@ -11,7 +11,7 @@ test_that("filename supports names with paths included ", {
     endpt <- sprintf("files/%s/trash", file$fid)
     res <- api(endpt, "POST")
   }
-  f <- plotly_POST(p, filename = filename)
+  f <- api_create(p, filename = filename)
   expect_match(f$filename, "awesome")
   expect_true(f$parented)
 })

tests/testthat/test-plotly-getfigure.R

@@ -1,31 +1,31 @@
-context("get_figure")
+context("api_download_plot")
 
 test_that("requests made by a user who doesn't exist error a 404", {
   skip_on_cran()
   skip_if_not_master()
   expect_error({
-    get_figure("klmadslfjdfljdsf", 0)
+    api_download_plot(0, "klmadslfjdfljdsf")
   }, ".*404.*")
 })
 
 test_that("requests made to retrieve a figure that doesn't exist returns a 404", {
   skip_on_cran()
   skip_if_not_master()
   expect_error({
-    get_figure("get_test_user", 18324823)
+    api_download_plot(18324823, "get_test_user")
   }, ".*404.*")
 })
 
 test_that("requests made to retrieve some elses private file errors", {
   skip_on_cran()
   skip_if_not_master()
-  expect_error(get_figure("get_test_user", 1))
+  expect_error(api_download_plot(1, "get_test_user"))
 })
 
 test_that("retrieving a public figure ... works.", {
   skip_on_cran()
   skip_if_not_master()
-  fig <- get_figure("get_test_user", 0)
+  fig <- api_download_plot(0, "get_test_user")
   # get the data behind the hash
   p <- plotly_build(fig)$x
   expect_equivalent(p$data[[1]]$x, c("1", "2", "3"))
@@ -34,7 +34,7 @@ test_that("retrieving a public figure ... works.", {
 test_that("can add traces to a subplot figure", {
   skip_on_cran()
   skip_if_not_master()
-  fig <- get_figure('chelsea_lyn', 6366)
+  fig <- api_download_plot(6366, 'chelsea_lyn')
   p <- add_lines(fig, x = c(1, 2, 3), y = c(4, 2, 4))
   expect_equivalent(
     length(plotly_build(fig)$x$data) + 1, 
@@ -45,7 +45,7 @@ test_that("can add traces to a subplot figure", {
 test_that("posting a hidden plot returns a secret key", {
   skip_on_cran()
   skip_if_not_master()
-  res <- plotly_POST(plot_ly(), sharing = "secret")
+  res <- api_create(plot_ly(), sharing = "secret")
   expect_true(res$share_key_enabled)
   expect_true(nchar(res$share_key) > 1)
 })