Browse code

still bad buttons

pablo-rodr-bio2 authored on 06/05/2021 17:51:11
Showing2 changed files

... ...
@@ -1,21 +1,25 @@
1 1
 dashboardPage(
2 2
   title = "GSVA Shiny Application",
3
+  
3 4
   dashboardHeader(
4 5
     tags$li(class = "dropdown",
5
-            tags$style(".main-header {max-height: 75px}"),
6
-            tags$style(".main-header .logo {height: 75px}"),
7
-            tags$div("GSVA Shiny Application", style = "font-size: 30px; 
8
-                     color: white; font-weight: bold;")
6
+            tags$div(id = "app_title", "GSVA Shiny Application")
9 7
     ),
10 8
     title = tags$img(src="GSVA.png", height=75, width=75)
11 9
   ),
10
+  
12 11
   dashboardSidebar(
13
-    tags$style(".left-side, .main-sidebar {padding-top: 75px}"),
14 12
     tags$head(
15 13
       tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
16 14
     ),
17
-    h3("Data input"),
18
-    #Select data source
15
+    fluidRow(
16
+      column(
17
+        width = 12,
18
+        align = "center",
19
+        h3("Data Input", style="font-weight: bold")
20
+      )
21
+    ),
22
+    # h3("Data input"),
19 23
     matrixUI("matrix1"),
20 24
     br(),
21 25
     geneSetsUI("genes1"),
... ...
@@ -23,37 +27,43 @@ dashboardPage(
23 27
     radioButtons("arg", "Change default settings:",
24 28
                  c("No" = "no",
25 29
                    "Yes" = "yes")),
26
-    actionButton("button", "Run"),
27 30
     br(),
28
-    downloadUI("download"),
29
-    closeBtnUI("close")
31
+    fluidRow(
32
+      actionButton("button", "Run"),
33
+      downloadUI("download"),
34
+      closeBtnUI("close"),
35
+    )
30 36
   ),
37
+  
31 38
   dashboardBody(
32 39
     shinyjs::useShinyjs(),
33 40
     add_busy_spinner(spin = "double-bounce", position = "bottom-right",
34 41
                      height = "100px", width = "100px"),
35
-    box(
36
-      width = 9,
37
-      tabsetPanel(id = "Panels", type="tabs",
38
-                  tabPanel("Samples",
39
-                           textOutput("errorsGsva"),
40
-                           htmlOutput("text1"),
41
-                           plot1_UI("plot1"),
42
-                           tableOutput("result")
43
-                  ),
44
-                  tabPanel("GeneSets",
45
-                           uiOutput("text2"),
46
-                           htmlOutput("text3"),
47
-                           plot2_UI("plot2"),
48
-                           plot3_UI("plot3")
49
-                  ),
50
-                  tabPanel("Session Info",
51
-                           verbatimTextOutput("sessionInfo"))
42
+    fluidRow(
43
+      box(
44
+        width = 9,
45
+        tabsetPanel(id = "Panels", type="tabs",
46
+                    tabPanel("Samples",
47
+                             textOutput("errorsGsva"),
48
+                             htmlOutput("text1"),
49
+                             plot1_UI("plot1"),
50
+                             tableOutput("result")
51
+                    ),
52
+                    tabPanel("GeneSets",
53
+                             uiOutput("text2"),
54
+                             htmlOutput("text3"),
55
+                             plot2_UI("plot2"),
56
+                             plot3_UI("plot3")
57
+                    ),
58
+                    tabPanel("Session Info",
59
+                             verbatimTextOutput("sessionInfo"))
60
+        )
61
+      ),
62
+      box(
63
+        width = 3,
64
+        argumentsDataUI("argumentsInput")
52 65
       )
53
-    ),
54
-    box(
55
-      width = 3,
56
-      argumentsDataUI("argumentsInput")
57 66
     )
58 67
   )
68
+  
59 69
 )
... ...
@@ -10,7 +10,20 @@ font-weight: bold;
10 10
 #app_title {
11 11
   color: white;
12 12
   font-weight: bold;
13
+  font-size: 30px;
13 14
 }
15
+
16
+.left-side, .main-sidebar {
17
+  padding-top: 75px;
18
+}
19
+
20
+.main-header {
21
+  max-height: 75px;
22
+  }
23
+
24
+.main-header .logo {
25
+  height: 75px;}
26
+
14 27
 /**
15 28
 .main-header {
16 29
   max-height: 75px;