From beea291e3fe8eb450530b3fa6cd921c34a1ce468 Mon Sep 17 00:00:00 2001 From: heimannch Date: Mon, 5 Aug 2024 10:14:19 -0700 Subject: [PATCH 1/3] add y coordinate to make sure barplot legend doesn't overlap with bars --- .gitignore | 1 + R/plotly_bar.R | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index 5b6a065..79a894b 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,4 @@ .Rhistory .RData .Ruserdata +.DS_Store \ No newline at end of file diff --git a/R/plotly_bar.R b/R/plotly_bar.R index f9785a3..3ae3210 100644 --- 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) From 91ce08c0987b5e89539e8a96364fd587dfbf98f1 Mon Sep 17 00:00:00 2001 From: heimannch Date: Mon, 5 Aug 2024 10:56:06 -0700 Subject: [PATCH 2/3] change default to boxplot --- R/distributions_plot_ui.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/distributions_plot_ui.R b/R/distributions_plot_ui.R index 8017b02..89d551a 100644 --- 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( From 838845ecc3cf0f2233751a674fc9b0b75212a763 Mon Sep 17 00:00:00 2001 From: heimannch Date: Mon, 5 Aug 2024 11:06:58 -0700 Subject: [PATCH 3/3] fix donwload of histogram table #70 --- R/drilldown_histogram_server.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/drilldown_histogram_server.R b/R/drilldown_histogram_server.R index 10c0391..e0e2250 100644 --- 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)