Update R/htmlwidgets.R

cpsievert · web-flow · commit f7630972a3de · 2021-11-09T14:44:18.000-06:00
diff --git a/R/htmlwidgets.R b/R/htmlwidgets.R
@@ -478,7 +478,7 @@ shinyWidgetOutput <- function(outputId, name, width, height, package = name,
 
   # Theme reporting requires this shiny feature
   # https://github.com/rstudio/shiny/pull/2740/files
-  if (reportTheme && is_installed("shiny", "1.4.0.9003")) {
+  if (reportTheme && !is_installed("shiny", "1.4.0.9003")) {
     message("`reportTheme = TRUE` requires shiny v.1.4.0.9003 or higher. Consider upgrading shiny.")
   }
 

Original file line number	Diff line number	Diff line change
`@@ -478,7 +478,7 @@ shinyWidgetOutput <- function(outputId, name, width, height, package = name,`
`478`	`478`
`479`	`479`	`# Theme reporting requires this shiny feature`
`480`	`480`	`# https://github.com/rstudio/shiny/pull/2740/files`
`481`		`- if (reportTheme && is_installed("shiny", "1.4.0.9003")) {`
	`481`	`+ if (reportTheme && !is_installed("shiny", "1.4.0.9003")) {`
`482`	`482`	message("`reportTheme = TRUE` requires shiny v.1.4.0.9003 or higher. Consider upgrading shiny.")
`483`	`483`	`}`
`484`	`484`