Merge pull request #71 from CRI-iAtlas/fix_barplot

Fix barplot legend, histogram data download
CRI-iAtlas · Aug 5, 2024 · bd6e98e · bd6e98e
2 parents 351864f + 838845e
commit bd6e98e
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 3 deletions.
diff --git a/.gitignore b/.gitignore
@@ -2,3 +2,4 @@
 .Rhistory
 .RData
 .Ruserdata
+.DS_Store
diff --git a/R/distributions_plot_ui.R b/R/distributions_plot_ui.R
@@ -43,7 +43,7 @@ distributions_plot_ui <- function(
           shiny::selectInput(
             ns("plot_type_choice"),
             "Select or Search for Plot Type",
-            choices = c("Violin", "Box")
+            choices = c("Box", "Violin")
           )
         ),
         shiny::column(

diff --git a/R/drilldown_histogram_server.R b/R/drilldown_histogram_server.R
@@ -62,7 +62,7 @@ drilldown_histogram_server <- function(
 
       plotly_server(
         "histogram",
-        plot_data = histogram_data()
+        plot_data = histogram_data
       )
 
       return(histogram_data)

diff --git a/R/plotly_bar.R b/R/plotly_bar.R
@@ -76,7 +76,7 @@ plotly_bar <- function(
     hoverinfo = "text"
   ) %>%
     plotly::layout(
-      legend = list(orientation = "h", x = 0, y = 1),
+      legend = list(orientation = "h", x = 0, yref = "paper", y = 1.5),
       title = title,
       xaxis = list(title = xlab),
       yaxis = list(title = ylab)