Browse code

added css ad shinydashboard

pablo-rodr-bio2 authored on 11/05/2021 10:25:57
Showing4 changed files

... ...
@@ -40,7 +40,7 @@ argumentsDataServer <- function(id){
40 40
     
41 41
     observeEvent(input$method, {
42 42
       toggleElement("kcdf", condition = input$method %in% c("gsva", "ssgsea"))
43
-      toggleElement("absRanking", condition = input$method %in% c("gsva", "ssgsea"))
43
+      toggleElement("absRanking", condition = input$method %in% "gsva")
44 44
       toggleElement("ssgseaNorm", condition = input$method %in% "ssgsea")
45 45
       toggleElement("mxDiff", condition = input$method %in% "gsva")
46 46
       toggleElement("tau", condition = input$method %in% c("gsva", "ssgsea"))
... ...
@@ -1,6 +1,12 @@
1 1
 closeBtnUI <- function(id){
2 2
   ns <- NS(id)
3
-  hidden(actionButton(ns("closeSave"), "Save & Close", class = "cls-btn"))
3
+  hidden(actionButton(ns("closeSave"), "Save & Close", style = "color: #fff;
4
+  font-weight: bold;
5
+  background-color: red;
6
+  border-color: #fff;
7
+  width:130;
8
+  padding: 5px 5px 5px 5px;
9
+  margin: 5px 5px 5px 5px; "))
4 10
 }
5 11
 
6 12
 closeBtnServer <- function(id, gs){
... ...
@@ -1,6 +1,11 @@
1 1
 downloadUI <- function(id) {
2 2
   ns <- NS(id)
3
-  hidden(downloadButton(ns('downloadData'), 'Download', class = "dwn-btn"))
3
+  hidden(downloadButton(ns('downloadData'), 'Download', style = "color: #fff;
4
+  font-weight: bold;
5
+  background-color: #27ae60;
6
+  border-color: #fff;
7
+  padding: 5px 14px 5px 14px;
8
+  margin: 5px 5px 5px 5px;" ))
4 9
 }
5 10
 
6 11
 downloadServer <- function(id, gs){
... ...
@@ -26,24 +26,6 @@ font-weight: bold;
26 26
   
27 27
 }
28 28
 
29
-.dwn-btn {
30
-  color: #fff;
31
-  font-weight: bold;
32
-  background-color: #27ae60;
33
-  border-color: #fff;
34
-  padding: 5px 14px 5px 14px;
35
-  margin: 5px 5px 5px 5px; 
36
-}
37
-
38
-.cls-btn {
39
-  color: #fff;
40
-  font-weight: bold;
41
-  background-color: red;
42
-  border-color: #fff;
43
-  width:130;
44
-  padding: 5px 5px 5px 5px;
45
-  margin: 5px 5px 5px 5px; 
46
-}
47 29
 
48 30
 /**
49 31
 .main-header {