Include setPrototype polyfill in non-HTML output formats, closes #1702

Author: cpsievert

NEWS.md

@@ -4,7 +4,8 @@ This is minor patch release with a few minor bug fixes and updates test expectat
 
 ## BUG FIXES
 
-* `plot_mapbox()` now correctly defaults to a scattermapbox trace (unless z is present, then it defaults to choroplethmapbox) (#1702).
+* Fixes rendering issues non-HTML **rmarkdown** output formats, which was introduced in the 4.9.2 release (#1702).
+* `plot_mapbox()` now correctly defaults to a scattermapbox trace (unless z is present, then it defaults to choroplethmapbox) (#1707).
 * `ggplotly()` now correctly resolves overlapping axis tick text in `coord_sf()` (#1673).
 * A false-positive warning is no longer thrown when attempting to cast `toWebGL()` (#1569).
 

R/plotly.R

@@ -430,7 +430,7 @@ as_widget <- function(x, ...) {
       # we shouldn't need it because Object.setPrototypeOf() is pretty widely supported
       # https://github.com/plotly/plotly.js/issues/4556#issuecomment-583061419
       # https://caniuse.com/#search=setPrototypeOf
-      if (isTRUE(getOption("shiny.testmode"))) {
+      if (needsPrototypePolyfill()) {
         list(setPrototypeOfPolyfill())
       },
       list(typedArrayPolyfill()),
@@ -441,6 +441,18 @@ as_widget <- function(x, ...) {
   )
 }
 
+needsPrototypePolyfill <- function() {
+  if (isTRUE(getOption("shiny.testmode"))) {
+    return(TRUE)
+  }
+  
+  if (isTRUE(getOption("knitr.in.progress"))) {
+    return(!knitr::is_html_output())
+  }
+  
+  return(FALSE)
+}
+
 setPrototypeOfPolyfill <- function() {
   htmltools::htmlDependency(
     name = "setprototypeof",