From dee75415abbeff71a8e7a5dbded9ee693a6404fe Mon Sep 17 00:00:00 2001
From: James Wade <github@jameshwade.com>
Date: Sat, 31 Aug 2024 14:37:53 -0400
Subject: [PATCH] add miniUI and future to suggests

---
 DESCRIPTION         | 2 ++
 R/addin_chatgpt.R   | 1 +
 R/run_chatgpt_app.R | 1 +
 3 files changed, 4 insertions(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index 93d41ff9..22995b41 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -44,8 +44,10 @@ Imports:
     yaml
 Suggests: 
     AzureRMR,
+    future,
     grDevices,
     knitr,
+    miniUI,
     mockr,
     promises,
     rmarkdown,
diff --git a/R/addin_chatgpt.R b/R/addin_chatgpt.R
index 4a132084..8d32abe4 100644
--- a/R/addin_chatgpt.R
+++ b/R/addin_chatgpt.R
@@ -26,6 +26,7 @@
 #' gptstudio_chat()
 #' }
 gptstudio_chat <- function(host = getOption("shiny.host", "127.0.0.1")) {
+  check_installed(c("miniUI", "future"))
   rstudioapi::verifyAvailable()
 
   port <- find_available_port()
diff --git a/R/run_chatgpt_app.R b/R/run_chatgpt_app.R
index e70d98c6..290de888 100644
--- a/R/run_chatgpt_app.R
+++ b/R/run_chatgpt_app.R
@@ -13,6 +13,7 @@ gptstudio_run_chat_app <- function(ide_colors = get_ide_theme_info(),
                                    code_theme_url = get_highlightjs_theme(),
                                    host = getOption("shiny.host", "127.0.0.1"),
                                    port = getOption("shiny.port")) {
+  check_installed("future")
   ui <- mod_app_ui("app", ide_colors, code_theme_url)
 
   server <- function(input, output, session) {