Browse code

added css to cls and dwn btn

pablo-rodr-bio2 authored on 07/05/2021 08:18:33
Showing4 changed files

... ...
@@ -5,7 +5,13 @@ argumentsDataUI <- function(id) {
5 5
   #UI Definition
6 6
   conditionalPanel(
7 7
     condition = "input.arg == 'yes'",
8
-    h3("Parameters"),
8
+    fluidRow(
9
+      column(
10
+        width = 12,
11
+        align = "center",
12
+        h3("Parameters", style="font-weight: bold")
13
+      )
14
+    ),
9 15
     wellPanel(
10 16
       
11 17
       selectInput(ns("method"), "Choose method:",
... ...
@@ -1,6 +1,6 @@
1 1
 closeBtnUI <- function(id){
2 2
   ns <- NS(id)
3
-  hidden(actionButton(ns("closeSave"), "Save & Close"))
3
+  hidden(actionButton(ns("closeSave"), "Save & Close", class = "cls-btn"))
4 4
 }
5 5
 
6 6
 closeBtnServer <- function(id, gs){
... ...
@@ -1,6 +1,6 @@
1 1
 downloadUI <- function(id) {
2 2
   ns <- NS(id)
3
-  hidden(downloadButton(ns('downloadData'), 'Download'))
3
+  hidden(downloadButton(ns('downloadData'), 'Download', class = "dwn-btn"))
4 4
 }
5 5
 
6 6
 downloadServer <- function(id, gs){
... ...
@@ -22,7 +22,28 @@ font-weight: bold;
22 22
   }
23 23
 
24 24
 .main-header .logo {
25
-  height: 75px;}
25
+  height: 75px;
26
+  
27
+}
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
+}
26 47
 
27 48
 /**
28 49
 .main-header {