From b5d1c789de572b5bde4be98b7cea899a4d1ce298 Mon Sep 17 00:00:00 2001
From: Roman Eisner <roman.eisner@edmonton.ca>
Date: Tue, 4 Jul 2023 09:04:13 -0600
Subject: [PATCH] UI working

---
 search_results_table_module.R | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/search_results_table_module.R b/search_results_table_module.R
index 7049ea2..0b13add 100644
--- a/search_results_table_module.R
+++ b/search_results_table_module.R
@@ -230,8 +230,7 @@ searchResultsTable <- function(input, output, session,
       # str_replace_all("\n", "<br />") %>%
       # HTML()
 
-    # shinyWidgets::sendSweetAlert(
-    shinyWidgets::confirmSweetAlert(
+    shinyWidgets::confirmSweetAlert( # confirmSweetAlert allows us to track when the "OK" button is clicked
       session = session,
       inputId = session$ns("doc_info"),
       title = "Matching Document Information",
@@ -256,8 +255,8 @@ searchResultsTable <- function(input, output, session,
         ),
         # Only turn on summaries if we've specified an API Host,
         # and this is a long piece of text:
-        # TODO: Remove multiple spaces
         if (!is.null(get_configs()$embedding_api_host) & (row$num_chars > 1000)) {
+          # TODO: Nicer button
           actionButton(session$ns("summary_button"), "Summarize Text")
         } else {
           ""
@@ -269,7 +268,6 @@ searchResultsTable <- function(input, output, session,
     )
 
     observeEvent(input$doc_info, {
-      # TODO: Needed?
       output$summary_section = renderText({""})
     })
 
@@ -278,16 +276,17 @@ searchResultsTable <- function(input, output, session,
     observeEvent(input$summary_button, {
       req(input$summary_button)
       req(input$summary_button != 0)
+      # TODO: Do we need isolate? https://github.com/rstudio/shiny/issues/167
       isolate({
-        shinycssloaders::showPageSpinner(caption = "🤖 Processing... 🤖")
+        shinycssloaders::showPageSpinner(caption = "🤖 Reading Text... 🤖")
         shinyjs::hide("summary_button")
-        # shinyjs::show("summary_section")
         configs = get_configs()
-        summary = get_document_summary(doc$text, 
-                                      configs$embedding_api_host,
-                                      configs$embedding_api_user,
-                                      configs$embedding_api_password,
-                                      configs$embedding_api_version)
+        summary = get_document_summary(display_text, 
+                                       configs$embedding_api_host,
+                                       configs$embedding_api_user,
+                                       configs$embedding_api_password,
+                                       configs$embedding_api_version)
+        # TODO: Clean up this output
         output$summary_section = renderUI({
           tagList(
             strong("AI-generated Text Summary"),
@@ -297,7 +296,7 @@ searchResultsTable <- function(input, output, session,
         })
         shinycssloaders::hidePageSpinner()
       })
-    }, ignoreInit = TRUE, once = TRUE)
+    }, ignoreInit = TRUE, once = TRUE) # https://community.rstudio.com/t/issue-with-r-shiny-modal-dialog-and-observe-event-on-action-button/9501
   })
 
 }