@@ -5,7 +5,13 @@ argumentsDataUI <- function(id) {

   #UI Definition

   conditionalPanel(

     condition = "input.arg == 'yes'",

-    h3("Parameters"),

+    fluidRow(

+      column(

+        width = 12,

+        align = "center",

+        h3("Parameters", style="font-weight: bold")

+      )

+    ),

     wellPanel(

       selectInput(ns("method"), "Choose method:",

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

 closeBtnUI <- function(id){

   ns <- NS(id)

-  hidden(actionButton(ns("closeSave"), "Save & Close"))

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

 }

 closeBtnServer <- function(id, gs){

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

 downloadUI <- function(id) {

   ns <- NS(id)

-  hidden(downloadButton(ns('downloadData'), 'Download'))

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

 }

 downloadServer <- function(id, gs){

@@ -22,7 +22,28 @@ font-weight: bold;

   }

 .main-header .logo {

-  height: 75px;}

+  height: 75px;

+  

+}

+

+.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 {