v4.10.1 release candidate (#2202)

* Start v4.10.1 release candidate; groom news

* Don't run examples on a non-interactive windows environment

(This is mainly to avoid spurious CRAN NOTE on win-builder)

* Account for the fact that linewidth_or_size() could take non element/Geom input (like NULL)

Author: cpsievert

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotly
 Title: Create Interactive Web Graphics via 'plotly.js'
-Version: 4.10.0.9001
+Version: 4.10.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",
@@ -82,5 +82,3 @@ LazyData: true
 RoxygenNote: 7.2.1
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-Remotes:
-    tidyverse/ggplot2

NAMESPACE

@@ -27,6 +27,7 @@ S3method(layout,matrix)
 S3method(layout,plotly)
 S3method(layout,shiny.tag.list)
 S3method(linewidth_or_size,Geom)
+S3method(linewidth_or_size,default)
 S3method(linewidth_or_size,element)
 S3method(plotly_build,"NULL")
 S3method(plotly_build,gg)

NEWS.md

@@ -1,19 +1,17 @@
-# 4.10.0.9000
+# 4.10.1
 
 ## Changes to plotly.js
 
 * This version of the R package upgrades the version of the underlying plotly.js library from v2.5.1 to v2.11.1. This includes many bug fixes and improvements. The [plotly.js release page](https://github.com/plotly/plotly.js/releases) has the full list of changes.
 
 ## New features
 
+* `plotlyOutput()` gains a new `fill` parameter. When `TRUE` (the default), the widget's container element is allowed to grow/shrink to fit it's parent container so long as that parent is opinionated about its height and has been marked with `htmltools::bindFillRole(x, container = TRUE)`. (#2198)
+  * The primary motivation for this is to allow plots to grow/shrink by default [inside `bslib::card_body_fill()`](https://rstudio.github.io/bslib/articles/cards.html#responsive-sizing)
 * `ggplotly()` now supports the `{ggalluvial}` package. (#2061, thanks @moutikabdessabour)
 * `highlight()` now supports `on="plotly_selecting"`, enabling client-side linked brushing via mouse click+drag (no mouse-up event required, as with `on="plotly_selected"`). (#1280)
 * `raster2uri()` supports nativeRaster objects. This enables nativeRaster support for
   the `annotation_raster()` geom (#2174, @zeehio).
-* `plotlyOutput()`'s gains a `fill` argument which , allowing it have more flexible default sizing behavior, which will be useful in combination with `{bslib}`'s new `card()`. (#2192)  
-
-* `plotlyOutput()` gains a new `fill` parameter. When `TRUE` (the default), the widget's container element is allowed to grow/shrink to fit it's parent container so long as that parent is opinionated about its height and has been marked with `htmltools::bindFillRole(x, container = TRUE)`. (#2198)
-  * The primary motivation for this is to allow plots to grow/shrink by default [inside `bslib::card_body_fill()`](https://rstudio.github.io/bslib/articles/cards.html#responsive-sizing)
 
 ## Bug fixes
 

R/add.R

@@ -3,7 +3,7 @@
 #' @param p a plotly visualization
 #' @param data a data frame.
 #' @export
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' plot_ly() %>% add_data(economics) %>% add_trace(x = ~date, y = ~pce)
 add_data <- function(p, data = NULL) {
@@ -41,7 +41,7 @@ add_data <- function(p, data = NULL) {
 #' @author Carson Sievert
 #' @export
 #' @rdname add_trace
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' # the `plot_ly()` function initiates an object, and if no trace type
 #' # is specified, it sets a sensible default
@@ -704,7 +704,7 @@ special_attrs <- function(trace) {
 # #' 
 # #' 
 # #' @export
-# #' @examples
+# #' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 # #' 
 # #' x <- rnorm(10)
 # #' plot_ly(x = ~x) %>%

R/animate.R

@@ -28,7 +28,7 @@
 #' @rdname animation
 #' @aliases animation
 #' @author Carson Sievert
-#' @examples
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' df <- data.frame(
 #'   x = c(1, 2, 2, 1, 1, 2),

R/api_exports.R

@@ -46,7 +46,7 @@
 #' @author Carson Sievert
 #' @references \url{https://api.plot.ly/v2}
 #' @seealso [signup()]
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' \dontrun{
 #' 

R/dev.R

@@ -9,7 +9,7 @@
 #' or a number specifying the number of spaces to indent. See [jsonlite::prettify].
 #' @param ... other options passed onto [listviewer::jsonedit]
 #' @export
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #'   
 #' plotly_json(plot_ly())
 #' plotly_json(plot_ly(), FALSE)
@@ -32,7 +32,7 @@ plotly_json <- function(p = last_plot(), jsonedit = interactive(), pretty = TRUE
 #' @param jsonedit use `listviewer::jsonedit` to view the JSON?
 #' @param ... other options passed onto `listviewer::jsonedit`
 #' @export
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' s <- schema()
 #' 
 #' # retrieve acceptable `layout.mapbox.style` values

R/group2NA.R

@@ -23,7 +23,7 @@
 #' then `groupNames`, then `ordered`. As long as `groupNames` 
 #' contains valid variable names, new rows will also be inserted to separate 
 #' the groups.
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' # note the insertion of new rows with missing values 
 #' group2NA(mtcars, "vs", "cyl")

R/helpers.R

@@ -8,7 +8,7 @@
 #' multiple colorbars.
 #' @author Carson Sievert
 #' @export
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' p <- plot_ly(mtcars, x = ~wt, y = ~mpg, color = ~cyl)
 #' 
@@ -112,7 +112,7 @@ hide_guides <- function(p) {
 #' @param p a plotly object.
 #' @export
 #' @seealso [hide_legend()]
-#' @examples
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' p <- plot_ly(mtcars, x = ~wt, y = ~cyl, color = ~cyl)
 #' hide_colorbar(p)
@@ -136,7 +136,7 @@ hide_colorbar <- function(p) {
 #' @param p a plotly object.
 #' @export
 #' @seealso [hide_colorbar()]
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' p <- plot_ly(mtcars, x = ~wt, y = ~cyl, color = ~factor(cyl))
 #' hide_legend(p)
@@ -153,7 +153,7 @@ hide_legend <- function(p) {
 #' 
 #' @param p a plotly or ggplot object.
 #' @export
-#' @examples 
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' # currently no bargl trace type
 #' toWebGL(ggplot() + geom_bar(aes(1:10)))
@@ -197,7 +197,7 @@ plotly_empty <- function(...) {
 #' @author Carson Sievert
 #' @export
 #' @references <https://plotly-r.com/embedding-images.html>
-#' @examples
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' # a red gradient (from ?as.raster)
 #' r <- as.raster(matrix(hcl(0, 80, seq(50, 80, 10)), nrow = 4, ncol = 5))

R/highlight.R

@@ -52,7 +52,7 @@
 #' @author Carson Sievert
 #' @references \url{https://plotly-r.com/client-side-linking.html}
 #' @seealso [attrs_selected()]
-#' @examples
+#' @examplesIf interactive() || !identical(.Platform$OS.type, "windows")
 #' 
 #' # These examples are designed to show you how to highlight/brush a *single*
 #' # view. For examples of multiple linked views, see `demo(package = "plotly")`