account for htmlwidgets patch release; closes #1868

cpsievert · cpsievert · commit 3080658fd319 · 2020-10-21T09:35:06.000-05:00
diff --git a/R/shiny.R b/R/shiny.R
@@ -34,7 +34,7 @@ plotlyOutput <- function(outputId, width = "100%", height = "400px",
     package = "plotly",
     reportSize = TRUE
   )
-  if (is_available("shiny", "1.4.0.9003") && is_available("htmlwidgets", "1.5.1.9001")) {
+  if (is_available("shiny", "1.4.0.9003") && is_available("htmlwidgets", "1.5.2.9000")) {
     args$reportTheme <- reportTheme
   }
   do.call(htmlwidgets::shinyWidgetOutput, args)

Original file line number	Diff line number	Diff line change
`@@ -34,7 +34,7 @@ plotlyOutput <- function(outputId, width = "100%", height = "400px",`
`34`	`34`	`package = "plotly",`
`35`	`35`	`reportSize = TRUE`
`36`	`36`	`)`
`37`		`- if (is_available("shiny", "1.4.0.9003") && is_available("htmlwidgets", "1.5.1.9001")) {`
	`37`	`+ if (is_available("shiny", "1.4.0.9003") && is_available("htmlwidgets", "1.5.2.9000")) {`
`38`	`38`	`args$reportTheme <- reportTheme`
`39`	`39`	`}`
`40`	`40`	`do.call(htmlwidgets::shinyWidgetOutput, args)`