@@ -40,7 +40,7 @@ argumentsDataServer <- function(id){

     observeEvent(input$method, {

       toggleElement("kcdf", condition = input$method %in% c("gsva", "ssgsea"))

-      toggleElement("absRanking", condition = input$method %in% c("gsva", "ssgsea"))

+      toggleElement("absRanking", condition = input$method %in% "gsva")

       toggleElement("ssgseaNorm", condition = input$method %in% "ssgsea")

       toggleElement("mxDiff", condition = input$method %in% "gsva")

       toggleElement("tau", condition = input$method %in% c("gsva", "ssgsea"))

@@ -1,6 +1,12 @@

 closeBtnUI <- function(id){

   ns <- NS(id)

-  hidden(actionButton(ns("closeSave"), "Save & Close", class = "cls-btn"))

+  hidden(actionButton(ns("closeSave"), "Save & Close", style = "color: #fff;

+  font-weight: bold;

+  background-color: red;

+  border-color: #fff;

+  width:130;

+  padding: 5px 5px 5px 5px;

+  margin: 5px 5px 5px 5px; "))

 }

 closeBtnServer <- function(id, gs){

@@ -1,6 +1,11 @@

 downloadUI <- function(id) {

   ns <- NS(id)

-  hidden(downloadButton(ns('downloadData'), 'Download', class = "dwn-btn"))

+  hidden(downloadButton(ns('downloadData'), 'Download', style = "color: #fff;

+  font-weight: bold;

+  background-color: #27ae60;

+  border-color: #fff;

+  padding: 5px 14px 5px 14px;

+  margin: 5px 5px 5px 5px;" ))

 }

 downloadServer <- function(id, gs){

@@ -26,24 +26,6 @@ font-weight: bold;

 }

-.dwn-btn {

-  color: #fff;

-  font-weight: bold;

-  background-color: #27ae60;

-  border-color: #fff;

-  padding: 5px 14px 5px 14px;

-  margin: 5px 5px 5px 5px; 

-}

-

-.cls-btn {

-  color: #fff;

-  font-weight: bold;

-  background-color: red;

-  border-color: #fff;

-  width:130;

-  padding: 5px 5px 5px 5px;

-  margin: 5px 5px 5px 5px; 

-}

 /**

 .main-header {