From e0a1b2f02a7fb18d3e8c8032092a2ade2d27b45a Mon Sep 17 00:00:00 2001
From: Pierre Chelle <45343665+pchelle@users.noreply.github.com>
Date: Thu, 25 Jul 2024 06:28:10 -0400
Subject: [PATCH] Fixes #1248 DDI plots are quadratic (#1255)

---
 R/utilities-plots.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/utilities-plots.R b/R/utilities-plots.R
index 0b49c0c5..8c90d01d 100644
--- a/R/utilities-plots.R
+++ b/R/utilities-plots.R
@@ -196,11 +196,11 @@ getPlotConfigurationFromPlan <- function(plotProperties, plotType = NULL, legend
   validateIsIncluded(values = legendPosition, parentValues = tlf::LegendPositions, nullAllowed = TRUE)
   plotConfiguration$legend$position <- legendPosition %||% reEnv$theme$background$legendPosition
 
-  # Quadratic dimensions for ObsVsPred plot type
+  # Quadratic dimensions for ObsVsPred, DDIRatio plot type
   # Note that other plots be could included in default quadratic plots
   defaultWidth <- reEnv$defaultPlotFormat$width
   defaultHeight <- reEnv$defaultPlotFormat$height
-  if (isIncluded(plotType, "ObsVsPred")) {
+  if (isIncluded(plotType, c("ObsVsPred", "DDIRatio"))) {
     defaultWidth <- mean(c(defaultWidth, defaultHeight))
     defaultHeight <- defaultWidth
   }