Minor UI changes; treescale positioning control fixed

infinity-a11y · Feb 29, 2024 · 7e3531a · 7e3531a
1 parent 72de29c
commit 7e3531a
Show file tree

Hide file tree

Showing 2 changed files with 44 additions and 32 deletions.
diff --git a/App.R b/App.R
@@ -10321,45 +10321,53 @@ server <- function(input, output, session) {
   # Treescale Positioning
 
   output$upgma_treescalex <- renderUI({
-    sliderTextInput(
-      "upgma_treescale_x",
-      label = h5("X Position", style = "color:white; margin-bottom: 0px"),
-      choices = -1:(ceiling(max(plot_loc$xrange_upgma)) * 1.1),
-      selected = ceiling(min(plot_loc$xrange_upgma)),
-      hide_min_max = TRUE,
-      width = "150px"
-    )
+    if(!is.null(plot_loc$xrange_upgma)) {
+      sliderTextInput(
+        "upgma_treescale_x",
+        label = h5("X Position", style = "color:white; margin-bottom: 0px"),
+        choices = -1:(ceiling(max(plot_loc$xrange_upgma)) * 1.1),
+        selected = ceiling(min(plot_loc$xrange_upgma)),
+        hide_min_max = TRUE,
+        width = "150px"
+      )
+    }
   })
 
   output$upgma_treescaley <- renderUI({
-    sliderTextInput(
-      "upgma_treescale_y",
-      label = h5("Y Position", style = "color:white; margin-bottom: 0px"),
-      choices = -1:(ceiling(max(plot_loc$yrange_upgma)) * 1.1),
-      selected = 0,
-      hide_min_max = TRUE
-    )
+    if(!is.null(plot_loc$yrange_upgma)) {
+      sliderTextInput(
+        "upgma_treescale_y",
+        label = h5("Y Position", style = "color:white; margin-bottom: 0px"),
+        choices = -1:(ceiling(max(plot_loc$yrange_upgma)) * 1.1),
+        selected = 0,
+        hide_min_max = TRUE
+      )
+    }
   })
 
   output$nj_treescalex <- renderUI({
-    sliderTextInput(
-      "nj_treescale_x",
-      label = h5("X Position", style = "color:white; margin-bottom: 0px"),
-      choices = -1:(ceiling(max(plot_loc$xrange_nj)) * 1.1),
-      selected = ceiling(min(plot_loc$xrange_nj)),
-      hide_min_max = TRUE,
-      width = "150px"
-    )
+    if(!is.null(plot_loc$xrange_nj)) {
+      sliderTextInput(
+        "nj_treescale_x",
+        label = h5("X Position", style = "color:white; margin-bottom: 0px"),
+        choices = -1:(ceiling(max(plot_loc$xrange_nj)) * 1.1),
+        selected = ceiling(min(plot_loc$xrange_nj)),
+        hide_min_max = TRUE,
+        width = "150px"
+      )
+    }
   })
 
   output$nj_treescaley <- renderUI({
-    sliderTextInput(
-      "nj_treescale_y",
-      label = h5("Y Position", style = "color:white; margin-bottom: 0px"),
-      choices = -1:(ceiling(max(plot_loc$yrange_nj)) * 1.1),
-      selected = 0,
-      hide_min_max = TRUE
-    )
+    if(!is.null(plot_loc$yrange_nj)) {
+      sliderTextInput(
+        "nj_treescale_y",
+        label = h5("Y Position", style = "color:white; margin-bottom: 0px"),
+        choices = -1:(ceiling(max(plot_loc$yrange_nj)) * 1.1),
+        selected = 0,
+        hide_min_max = TRUE
+      )
+    }
   })
 
   # heatmap picker

diff --git a/www/mycss.css b/www/mycss.css
@@ -12,7 +12,7 @@
   animation: none;
 }
 
-h1, h2, p, body {
+h1, h2, h3, h4, h5, p, body {
   font-family: 'Liberation Sans', sans-serif;
 }
 
@@ -85,6 +85,11 @@ i.fas {
 i.fas.fa-rotate {
   position: relative; 
   left: -5px;
+}
+
+#reload_db i.fas.fa-rotate {
+  position: relative; 
+  left: -5px;
   top: -2px;
 }
 
@@ -1467,5 +1472,4 @@ button#conf_meta_multi {
   color:black; 
   white-space: pre-wrap; 
   max-width: 100%; 
-  max-height: 500px;
 }