fix theme for table when ybrake_ylabel is true

smouksassi · Dec 23, 2024 · 5c7fd12 · 5c7fd12
1 parent ea357cc
commit 5c7fd12
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/forest_plot.R b/R/forest_plot.R
@@ -1139,6 +1139,11 @@ forest_plot <- function(
           axis.ticks.y = ggplot2::element_blank()
         )
     }
+    if (show_table_yaxis_tick_label && break_ylabel) {
+      table_plot <- table_plot +
+        ggplot2::scale_y_discrete(labels = label_wrap(y_label_text_width)) 
+    }
+
     if (!reserve_table_xaxis_label_space) {
       table_plot <- table_plot +
         ggplot2::theme(
@@ -1196,10 +1201,6 @@ forest_plot <- function(
           )
       }    
 
-      if (break_ylabel) {
-        table_plot <- table_plot +
-          ggplot2::scale_y_discrete(labels = label_wrap(y_label_text_width)) 
-      }
     }
   }
 

diff --git a/coveffectsplot.Rproj b/coveffectsplot.Rproj
@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: af89a8b6-fa96-48f1-b838-7186622fcd5f
 
 RestoreWorkspace: Default
 SaveWorkspace: Default