fix: allow dynamic height adjustment for plotly plots

insightsengineering · Nov 19, 2024 · 026d72b · 026d72b
1 parent 41b7002
commit 026d72b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot_with_settings.R b/R/plot_with_settings.R
@@ -383,7 +383,7 @@ plot_with_settings_srv <- function(id,
         plotly::renderPlotly({
           plotly::event_register(
             plotly::layout(
-              plotly::ggplotly(plot_r(), layerData = 1),
+              plotly::ggplotly(plot_r(), layerData = 1, height = p_height()),
               dragmode = "select"
             ),
             "plotly_selected"
@@ -442,7 +442,7 @@ plot_with_settings_srv <- function(id,
     output$plot_out_main <- renderUI({
       req(plot_suppress(plot_r()))
       if (identical(plot_type(), "ggplotly")) {
-        plotly::plotlyOutput(ns("plot_main"))
+        plotly::plotlyOutput(ns("plot_main"), height = "100%")
       } else {
         tags$div(
           align = graph_align,