Close #79: Don't call shiny::getCurrentOutputInfo() unless shiny is a…

…lready loaded
rstudio · Feb 1, 2021 · 5fcc008 · 5fcc008
1 parent c09c05d
commit 5fcc008
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/auto.R b/R/auto.R
@@ -202,7 +202,7 @@ auto_resolve_theme <- function(theme) {
 # ------------------------------------------------------------
 
 shiny_output_info <- function() {
-  if (!is_installed("shiny")) return(NULL)
+  if (!"shiny" %in% loadedNamespaces()) return(NULL)
   info <- tryNULL(shiny::getCurrentOutputInfo())
   # Return early if we're not in any output context
   if (is.null(info)) return(NULL)