fix(pkg-r): Hide close button in $app() when non-interactive

pkg-r/NEWS.md

@@ -39,6 +39,8 @@
 
 * Fixed `data_description` and `extra_instructions` being HTML-escaped in the system prompt. Special characters like `<`, `>`, and `&` in developer-provided descriptions and instructions are now passed to the LLM verbatim. (#258)
 
+* The close button in `$app()` is now hidden when running in a non-interactive context (e.g. a deployed Shiny app), preventing `stopApp()` from crashing the session for other users. (#259)
+
 # querychat 0.3.0
 
 ## New features

pkg-r/R/QueryChat.R

@@ -705,12 +705,14 @@ QueryChat <- R6::R6Class(
             ),
             DT::DTOutput("dt")
           ),
-          shiny::actionButton(
-            "close_btn",
-            label = "",
-            class = "btn-close",
-            style = "position: fixed; top: 6px; right: 6px;"
-          )
+          if (rlang::is_interactive()) {
+            shiny::actionButton(
+              "close_btn",
+              label = "",
+              class = "btn-close",
+              style = "position: fixed; top: 6px; right: 6px;"
+            )
+          }
         )
       }
 
@@ -777,17 +779,19 @@ QueryChat <- R6::R6Class(
           )
         })
 
-        shiny::observeEvent(input$close_btn, label = "on_close_btn", {
-          name <- active_table_name()
-          shiny::stopApp(
-            list(
-              df = qc_vals$.tables[[name]]$df(),
-              sql = qc_vals$.tables[[name]]$sql(),
-              title = qc_vals$.tables[[name]]$title(),
-              client = qc_vals$client
+        if (rlang::is_interactive()) {
+          shiny::observeEvent(input$close_btn, label = "on_close_btn", {
+            name <- active_table_name()
+            shiny::stopApp(
+              list(
+                df = qc_vals$.tables[[name]]$df(),
+                sql = qc_vals$.tables[[name]]$sql(),
+                title = qc_vals$.tables[[name]]$title(),
+                client = qc_vals$client
+              )
             )
-          )
-        })
+          })
+        }
       }
 
       shiny::shinyApp(ui, server, enableBookmarking = bookmark_store)