From ecdfc8ded0340257e2a5a482448beb2e94d28928 Mon Sep 17 00:00:00 2001
From: Trevor Riley <tnriley@gmail.com>
Date: Fri, 8 Nov 2024 12:57:34 -0500
Subject: [PATCH] Added Note for OVID files and fixed pop up after
 deduplication for clarity.

---
 inst/shiny-app/CiteSource/app.R | 21 ++++++++++++++++-----
 1 file changed, 16 insertions(+), 5 deletions(-)

diff --git a/inst/shiny-app/CiteSource/app.R b/inst/shiny-app/CiteSource/app.R
index e7452ce2..499a34cd 100644
--- a/inst/shiny-app/CiteSource/app.R
+++ b/inst/shiny-app/CiteSource/app.R
@@ -79,6 +79,12 @@ ui <- shiny::navbarPage("CiteSource",
               multiple = TRUE,
               accept = c(".ris", ".txt", ".bib")
             ),
+            shiny::p(
+              HTML("NOTE: OVID citations may be incompatible.<br> 
+                   Import and export them using citation software<br>
+                  before uploading for accurate metadata mapping."),
+              style = "font-size: 85%; color: black;"
+            ),
             shiny::hr(),
             shiny::h5("OR: Re-upload an .ris or .csv exported from CiteSource"),
             shiny::fileInput("file_reimport", "",
@@ -538,18 +544,23 @@ server <- function(input, output, session) {
     
     # Generate a summary message based on deduplication results
     n_citations <- nrow(rv$upload_df)
-    n_unique_records <- nrow(rv$n_unique)  # Changed variable name to avoid conflict
+    n_distinct_records <- nrow(rv$n_unique)
+    n_unique_records <- nrow(unique_citations)
     n_pairs_manual <- nrow(rv$pairs_to_check)
     
     message <- if (n_pairs_manual > 0) {
       paste(
-        "From a total of", n_citations, "citations added, there are", n_unique_records, 
-        "unique citations. Head to the manual deduplication tab to check", n_pairs_manual, "potential duplicates."
+        "From the", n_citations, "records, that were uploaded, there were", n_disctinct_records, 
+        "distinct records identified after internal source deduplication. 
+        Of these distinct records, there were", n_unique_records, "unique records.
+        Head to the manual deduplication tab to check", n_pairs_manual, "potential duplicates."
       )
     } else {
       paste(
-        "From a total of", n_citations, "citations added, there are", n_unique_records, 
-        "unique citations. There are no potential duplicates for manual review. You can proceed to the visualization tab."
+        "From the", n_citations, "records, that were uploaded, there were", n_disctinct_records, 
+        "distinct records identified after internal source deduplication. 
+        There were no potential duplicates identifid for manual review. 
+        You can proceed to the visualization tab."
       )
     }