From 78f31dc25afa93a690528b271f46ed4556ce1a3c Mon Sep 17 00:00:00 2001
From: Mauro Masiero <mauromiguelm@hotmail.com>
Date: Tue, 16 Apr 2024 09:37:29 +0200
Subject: [PATCH] rename "Load" to "Analyze" datasets in several modules

---
 components/app/R/ui.R                       | 4 ++--
 components/board.loading/R/loading_server.R | 6 +++---
 components/board.loading/R/loading_ui.R     | 4 ++--
 components/board.upload/R/upload_server.R   | 2 +-
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/components/app/R/ui.R b/components/app/R/ui.R
index f0fd90d56..1dff14a89 100644
--- a/components/app/R/ui.R
+++ b/components/app/R/ui.R
@@ -307,10 +307,10 @@ app_ui <- function(x) {
           ),
           bigdash::sidebarTabHelp(
             "load-tab",
-            "Load dataset",
+            "Analyze dataset",
             "This panel shows the available datasets within the platform. These data sets
                     have been pre-computed and are ready to be used. Select a
-                    dataset in the table and load the data set by clicking the 'load' button."
+                    dataset in the table and load the data set by clicking the 'Analyze dataset' button."
           ),
           # ,
           # bigdash::sidebarTabHelp(
diff --git a/components/board.loading/R/loading_server.R b/components/board.loading/R/loading_server.R
index 7f6e20093..3e6bf2ad8 100644
--- a/components/board.loading/R/loading_server.R
+++ b/components/board.loading/R/loading_server.R
@@ -57,7 +57,7 @@ LoadingBoard <- function(id,
     output$sharing_alert <- renderUI({
       if (!auth$options$ENABLE_USER_SHARE) {
         return(
-          bs_alert(HTML("This table shows the <b>available datasets</b> in your library. The table reports a brief description of each dataset. The <b>Signature t-SNE</b> shows similarity clustering of fold-change signatures using t-SNE. Select a dataset in the table and load the data by clicking the <b>Load Dataset</b> button below."))
+          bs_alert(HTML("This table shows the <b>available datasets</b> in your library. The table reports a brief description of each dataset. The <b>Signature t-SNE</b> shows similarity clustering of fold-change signatures using t-SNE. Select a dataset in the table and analyze the data by clicking the <b>Analyze Dataset</b> button below."))
         )
       }
       received_files <- pgxreceived$getReceivedFiles()
@@ -67,7 +67,7 @@ LoadingBoard <- function(id,
 
 
       if (num_received == 0 && num_shared == 0) {
-        tag <- bs_alert(HTML("This table shows the <b>available datasets</b> in your library. The table reports a brief description of each dataset. The <b>Signature t-SNE</b> shows similarity clustering of fold-change signatures using t-SNE. Select a dataset in the table and load the data by clicking the <b>Load Dataset</b> button below."))
+        tag <- bs_alert(HTML("This table shows the <b>available datasets</b> in your library. The table reports a brief description of each dataset. The <b>Signature t-SNE</b> shows similarity clustering of fold-change signatures using t-SNE. Select a dataset in the table and analyze the data by clicking the <b>Analyze Dataset</b> button below."))
         return(tag)
       }
 
@@ -230,7 +230,7 @@ LoadingBoard <- function(id,
         genes, gene sets (or pathways), corresponding phenotypes and the creation
         date.<br><br><b>Selecting the dataset:</b> Users can select a dataset in
         the table. The Dataset info shows the information of the dataset of
-        interest and users can load the data by clicking the 'Load dataset'
+        interest and users can analyze the data by clicking the 'Analyze dataset'
         button.<br><br><br><center><iframe width='560' height='315'
         src='https://www.youtube.com/embed/elwT6ztt3Fo'
         title='YouTube video player' frameborder='0'
diff --git a/components/board.loading/R/loading_ui.R b/components/board.loading/R/loading_ui.R
index 36b080d68..69fdf0c0b 100644
--- a/components/board.loading/R/loading_ui.R
+++ b/components/board.loading/R/loading_ui.R
@@ -43,7 +43,7 @@ LoadingUI <- function(id) {
       div(
       shiny::actionButton(
         ns("loadbutton"),
-        label = "Load dataset",
+        label = "Analyze dataset",
         icon = icon("file-import"),
         class = "btn btn-primary",
         width = NULL
@@ -51,7 +51,7 @@ LoadingUI <- function(id) {
       # create button to trigger new_upload modal in server
       shiny::actionButton(
         ns("newuploadbutton"),
-        label = "Upload dataset",
+        label = "Upload new dataset",
         icon = icon("upload"),
         class = "btn btn-info",
         width = NULL
diff --git a/components/board.upload/R/upload_server.R b/components/board.upload/R/upload_server.R
index 229e847d2..a8e8c1194 100644
--- a/components/board.upload/R/upload_server.R
+++ b/components/board.upload/R/upload_server.R
@@ -155,7 +155,7 @@ UploadBoard <- function(id,
         shinyalert::shinyalert(
           title = paste("Your dataset is ready!"),
           text = paste("Your dataset", new_pgx$name, "is ready for visualization. Happy discoveries!"),
-          confirmButtonText = "Load my new data!",
+          confirmButtonText = "Analyze my new data!",
           showCancelButton = TRUE,
           cancelButtonText = "Stay here.",
           inputId = "confirmload",