v4.11.0 release candidate (#2443)

* v4.11.0 release candidate

* Try checking with dev GGally

* Accept new snaps

* Skip tests with ggplot2 code that fails on old R versions

* Skip more

* Check workarounds

* More workarounds

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via 'plotly.js'
-Version: 4.10.4.9000
+Version: 4.11.0
 Authors@R: c(person("Carson", "Sievert", role = c("aut", "cre"),
     email = "[email protected]", comment = c(ORCID = "0000-0002-4958-2844")),
     person("Chris", "Parmer", role = "aut",
@@ -83,6 +83,7 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 Config/Needs/check:
     tidyverse/ggplot2,
+    ggobi/GGally,
     rcmdcheck,
     devtools,
     reshape2,

NEWS.md

@@ -1,4 +1,4 @@
-# plotly (development version)
+# plotly 4.11.0
 
 ## New features
 

demo/animation-tour-USArrests.R

@@ -1,16 +1,21 @@
 # adapted from  https://github.com/rstudio/ggvis/blob/master/demo/tourr.r
-library(tourr)
 library(plotly)
 
 data("USArrests")
 
+# Avoids R CMD check NOTE about using `tourr` without mentioning it in DESCRIPTION
+# Install it via CRAN `install.packages("tourr")`
+rescale <- getFromNamespace("rescale", "tourr")
+new_tour <- getFromNamespace("new_tour", "tourr")
+grand_tour <- getFromNamespace("grand_tour", "tourr")
+
 mat <- rescale(USArrests[, 1:4])
 tour <- new_tour(mat, grand_tour(), NULL)
 
 # projection of each observation
 tour_dat <- function(step_size) {
   step <- tour(step_size)
-  proj <- center(mat %*% step$proj)
+  proj <- scale(mat %*% step$proj, center = TRUE, scale = FALSE)
   data.frame(x = proj[,1], y = proj[,2], state = rownames(mat))
 }
 

demo/animation-tour-basic.R

@@ -1,13 +1,22 @@
 # adapted from  https://github.com/rstudio/ggvis/blob/master/demo/tourr.r
-library(tourr)
 library(plotly)
 
+# Avoids R CMD check NOTE about using `tourr` without mentioning it in DESCRIPTION
+# Install it `install.packages("tourr")`
+rescale <- getFromNamespace("rescale", "tourr")
+new_tour <- getFromNamespace("new_tour", "tourr")
+grand_tour <- getFromNamespace("grand_tour", "tourr")
+lazyLoad(
+  file.path(system.file("data", package = "tourr"), "Rdata"),
+  filter = function(x) x == "flea"
+)
+
 mat <- rescale(as.matrix(flea[1:6]))
 tour <- new_tour(mat, grand_tour(), NULL)
 
 tour_dat <- function(step_size) {
   step <- tour(step_size)
-  proj <- center(mat %*% step$proj)
+  proj <- scale(mat %*% step$proj, center = TRUE, scale = FALSE)
   data.frame(x = proj[,1], y = proj[,2], 
              species = flea$species)
 }

demo/crosstalk-filter-lines.R

@@ -1,8 +1,14 @@
 library(crosstalk)
 library(ggplot2)
-library(gapminder)
 library(plotly)
 
+# Equivalent to data(gapminder, package = "gapminder"), but avoids R CMD check NOTE 
+# about `gapminder` not being in DESCRIPTION. Install it `install.packages("gapminder")`
+lazyLoad(
+  file.path(system.file("data", package = "gapminder"), "Rdata"),
+  filter = function(x) x == "gapminder"
+)
+
 sd <- highlight_key(gapminder)
 
 g <- ggplot(sd, aes(year, lifeExp, color = country, group = country)) +

demo/crosstalk-highlight-leaflet.R

@@ -1,6 +1,4 @@
 library(plotly)
-# devtools::install_github("rstudio/leaflet#346")
-library(leaflet)
 library(crosstalk)
 library(htmltools)
 
@@ -13,8 +11,11 @@ p <- plot_ly(sd, x = ~depth, y = ~mag) %>%
   add_markers(alpha = 0.5) %>%
   highlight("plotly_selected", dynamic = TRUE)
 
-map <- leaflet(sd) %>% 
-  addTiles() %>% 
-  addCircles()
+# Requires devtools::install_github("rstudio/leaflet#346")
+withr::with_namespace("leaflet", {
+  map <- leaflet(sd) %>% 
+    addTiles() %>% 
+    addCircles()
+})
 
 bscols(p, map)

demo/sf-dt.R

@@ -9,4 +9,5 @@ map <- plot_ly(ncsd, split = ~NAME, color = I("gray"), hoveron = "fills") %>%
   layout(title = "Click on counties to query them", showlegend = FALSE) %>%
   config(displayModeBar = FALSE)
 
-bscols(map, DT::datatable(ncsd))
+datatable <- getFromNamespace("datatable", "DT")
+bscols(map, datatable(ncsd))

demo/sf-mapbox-data.R

@@ -11,10 +11,11 @@ plot_mapbox(res_mn, split = ~INDRESNAME, color = ~AREA, stroke = ~PERIMETER, spa
 
 # linking with DT
 mn <- highlight_key(res_mn)
+datatable <- getFromNamespace("datatable", "DT")
 bscols(
   plot_mapbox(mn, split = ~INDRESNAME, text = ~INDRESNAME, hoverinfo = "text", hoveron = "fills") %>%
     layout(title = "Click a reservation", showlegend = FALSE),
-  DT::datatable(mn)
+  datatable(mn)
 )
 
 # linking with plotly
@@ -31,5 +32,3 @@ bscols(
     layout(barmode = "overlay") %>% 
     highlight("plotly_selected", persistent = TRUE)
 )
-
-

demo/sf-mapbox-layout.R

@@ -7,7 +7,8 @@ nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)
 sf_to_geojson <- function(x) {
   tmp <- tempfile(fileext = ".geojson")
   st_write(x, tmp, driver = "GEOJSON")
-  geojsonio::geojson_read(tmp, "local")
+  geojson_read <- getFromNamespace("geojson_read", "geojsonio")
+  geojson_read(tmp, "local")
 }
 
 # By converting sf to geojson and routing to mapbox.layers, rendering