rename "Load" to "Analyze" datasets in several modules

bigomics · Apr 16, 2024 · 78f31dc · 78f31dc
1 parent 62e955b
commit 78f31dc
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git 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
@@ -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
@@ -43,15 +43,15 @@ LoadingUI <- function(id) {
       div(
       shiny::actionButton(
         ns("loadbutton"),
-        label = "Load dataset",
+        label = "Analyze dataset",
         icon = icon("file-import"),
         class = "btn btn-primary",
         width = NULL
       ),
       # 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
@@ -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",