fix: typo in check_active_session()

Author: gadenbuie

R/utils-shiny.R

@@ -1,8 +1,10 @@
 check_active_session <- function(session = shiny::getDefaultReactiveDomain()) {
-  rlang::abort(
-    "An active Shiny session is required.",
-    call = rlang::caller_env()
-  )
+  if (is.null(session)) {
+    rlang::abort(
+      "An active Shiny session is required.",
+      call = rlang::caller_env()
+    )
+  }
 }
 
 resolve_id <- function(id, session = shiny::getDefaultReactiveDomain()) {