add icons to table menu and left-align text

bigomics · Mar 16, 2023 · 08ac085 · 08ac085
1 parent e4e1419
commit 08ac085
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 19 deletions.
diff --git a/components/board.loading/R/loading_server.R b/components/board.loading/R/loading_server.R
@@ -92,10 +92,10 @@ LoadingBoard <- function(id,
 
         alert_val <- shinyalert::shinyalert(
           inputId = 'share_confirm',
-          title = "Are you sure?",
+          title = "Share this dataset?",
           paste('The dataset', pgx_name, 'will be moved',
                 'to the shared folder. Other users will be able import and explore
-                this dataset.'
+                this dataset. Are you sure?'
           ),
           showCancelButton = TRUE,
           showConfirmButton = TRUE

diff --git a/components/board.loading/R/loading_table_datasets.R b/components/board.loading/R/loading_table_datasets.R
@@ -38,37 +38,37 @@ loading_table_datasets_server <- function(id,
       for (i in 1:nrow(df)) {
         new_menu <- actionMenu(
           div(
-            style = "width: 140px;",
+            style = "width: 160px;",
             div(
               shiny::actionButton(
                 ns(paste0("download_pgx_row_",i)),
                 label = "Download PGX",
-                icon = NULL,
+                icon = shiny::icon('download'),
                 class = "btn btn-outline-dark",
-                style = "width: 100%; border: none;",
+                style = "border: none;",
                 onclick=paste0('Shiny.onInputChange(\"',ns("download_pgx"),'\",this.id)')
               ),
               shiny::actionButton(
                 ns(paste0("download_zip_row_", i)),
                 label = "Download ZIP",
-                icon = NULL,
+                icon = shiny::icon("file-archive"),
                 class = "btn btn-outline-dark",
-                style = "width: 100%; border: none;",
+                style = "border: none;",
                 onclick=paste0('Shiny.onInputChange(\"',ns("download_zip"),'\",this.id)')
               ),
               shiny::actionButton(
                 ns(paste0("share_dataset_row_", i)),
                 label = "Share Dataset",
+                icon = shiny::icon('share-nodes'),
                 class = "btn btn-outline-info",
-                width = '100%',
                 style = 'border: none;',
                 onclick=paste0('Shiny.onInputChange(\"',ns("share_pgx"),'\",this.id)')
               ),
               shiny::actionButton(
                 ns(paste0("delete_dataset_row_",i)),
                 label = "Delete Dataset",
+                icon = shiny::icon("trash"),
                 class = "btn btn-outline-danger",
-                width = '100%',
                 style = 'border: none;',
                 onclick=paste0('Shiny.onInputChange(\"',ns("delete_pgx"),'\",this.id)')
               )

diff --git a/components/board.loading/R/loading_ui.R b/components/board.loading/R/loading_ui.R
@@ -68,14 +68,11 @@ LoadingUI <- function(id) {
             loading_tsne_ui(ns("tsne"),
               height = c("65vh", "70vh"),
               width = c("auto",  "100%")
-            ) %>%
-              tagAppendAttributes(
-                ##style = 'padding-top: 61.5px;'
-              )
+            )
           )
         )
       ),
-         
+
       shiny::tabPanel(
         'Shared',
         div(
@@ -101,11 +98,8 @@ LoadingUI <- function(id) {
             loading_tsne_ui(ns("tsne_shared"),
               height = c("65vh", "70vh"),
               width = c("auto",  "100%")
-            ) %>%
-              tagAppendAttributes(
-                ## style = 'padding-top: 61.5px;'
-              )
-          )          
+            )
+          )
         )
       )
     )

diff --git a/data_shared/datasets-tsne.csv b/data_shared/datasets-tsne.csv
@@ -0,0 +1,10 @@
+"","x","y"
+"[example-data] act_vs_notact",-70.6408,33.0884
+"[example-data] act12h_vs_notact",-61.2106,36.359
+"[example-data] act24h_vs_notact",-65.0473,26.6999
+"[example-data] act48h_vs_notact",-71.4513,39.8721
+"[example-data] act72h_vs_notact",-75.7596,32.9419
+"[example-data] act96h_vs_notact",-78.3236,25.7687
+"[GSE157905-lenvatinib-bc] treatment:Combi_vs_CT",137.6644,-65.74
+"[GSE157905-lenvatinib-bc] treatment:Gefitinib_vs_CT",141.2923,-61.5844
+"[GSE157905-lenvatinib-bc] treatment:Lenvatinib_vs_CT",143.4765,-67.4056